use lib '../modules';
use strict;
use Net::SFTP::Foreign;

$|=1;

print "Connecting…..";

my $sftp = Net::SFTP::Foreign->new('ipaddress',
                                   user=>'user',
                                   password=>'secret');

if (not $sftp) {

    die("Error: No Connection:$@");
}
elsif ($sftp->error) {

    die("Connect Failed : ".$sftp->status);
}
else {

    print "Connected!\n";

    if (!$sftp->put("/source/path/to/file", "/remote/target/file ")) {

        print "Failed to Transfer: ".$sftp->error;
    }
    else {
        print "Transfer Done!!";
    }

    print "\nFinished\n";
}