Select Code to Download

use Net::OpenSSH;

...
my $sftp = $ssh->sftp;
$sftp->put($from, $to);
$ssh->system(perl => $script, $to);