Select Code to Download

localhost.localdomain: Reading configuration data /root/.ssh/config
localhost.localdomain: Reading configuration data /etc/ssh_config
...
localhost.localdomain: Service accepted: ssh-userauth.
localhost.localdomain: Trying empty user-authentication request.
input must be 8 bytes long at /usr/lib/perl5/site_perl/5.8.0/i386-linu
+x-thread-multi/Crypt/DES.pm line 57.

print "Enter your username: ";
chomp(my $user = <STDIN>);
...
$ssh->login($user,$pass);

... etc.