Select Code to Download

$ssh = Net::OpenSSH->new($host,
                         user => $user, password => $password,
...

$ssh->scp_put(...);
$ssh->scp_get(...);