Select Code to Download

use Net::OpenSSH '0.51_01';

...
if (my $error = $ssh->error) {
    print $logfh, "scp command failed: $error\n";
}