Sample SFTP using Perl

Perl Program to do SFTP : http://www.pastie.org/564818

Shell script to call the perl: http://www.pastie.org/564822