#!/usr/local/bin/perl  -w

use FindBin qw($Bin);
BEGIN{
	unshift(@INC, 'Net');
	unshift(@INC, 'Net/SFTP');	
	unshift(@INC, 'Net/SSH/Perl');	
	unshift(@INC, 'Net/SSH/Perl/Util');
}

use Net::SFTP;
use Net::SSH::Perl;
my $host = "abc.account.com";
my %args = (
	user => 'chshtst',
	password => '4getmenot',
	debug => 'true'
);

my $sftp = Net::SFTP->new($host, %args);
print "connected!";

$sftp->put("/from/path/file.pm", "/to/path");
print "done!\n";