Select Code to Download

use IPC::PerlSSH;

...
    print "error: $@";
}
print "done\n";

$ perl test_ipc_perlssh.pl 
1
...
2
done
$

$ perl test_ipc_perlssh.pl 
1
...
[pressed enter]

$