Select Code to Download

              __________            _________
              |        |            |       |
...

            user: myname         usr: myname
            pswd: foo            pswd: bar

use Net::SFTP;
use Net::SSH::Perl;
...
                                  "debug"=>1) 
        || die 'cannot login $!\n';
$sftp->put($home,$path1)|| die "cannot open: $!";