or download this
my $sftp = Net::SFTP::Foreign->new($host, %args, ssh_cmd => 'plink');#
+, ssh_cmd =>Net::SSH2);
$sftp->die_on_error("Unable to establish SFTP connection");
...
$sftp->rput("C:/Users/edawals/Desktop/ftpTestFolder/", "test/tessts/",
+ copy_perm => 0, overwrite => 1, late_set_perm => 1) or die "put fail
+ed: " . $sftp->error;