Re: perl expect script ending prematurely before supplying the password

use Net::OpenSSH;

my $ssh = Net::OpenSSH->new('bar', user => 'foo', password => $passwor
+d);
$ssh->scp_put('test.txt', '/tmp/test.txt');
$ssh->error and die "SCP transfer failed: " . $ssh->error;
[download]

Comment on Re: perl expect script ending prematurely before supplying the password Download Code