print("Username: ");
$user = <STDIN>;
chomp($user);

print("Pass: ");
$pass = <STDIN>;
chomp($pass);

$ssh->login($user,$pass); 

# $ssh is introduced earlier, of course

##</code><code>##

input must be 8 bytes long at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Crypt/DES.pm line 57.

##</code><code>##

#source: 

$ssh->login("root","root_pass"); 

##</code><code>##

$ssh->cmd($curr_cmd); does not work
$ssh->cmd("ls -l"); DOES work !