Select Code to Download

#!/usr/bin/perl -w
use Net::SSH::Perl;
...
if ($err1){print "Error:\n$_\n\n";}
print "Exit Code:\n$exit2\n\n";

comops:~/tkl # perl -w ./sshtkl.pl
comops: Reading configuration data /root/.ssh/config
...
comops: Entering Diffie-Hellman Group 1 key exchange.
comops: Sent DH public key, waiting for reply.
Connection closed by remote host. at /usr/lib/perl5/site_perl/5.8.3/Ne
+t/SSH/Perl/Kex/DH1.pm line 41