localhost.localdomain: Reading configuration data /root/.ssh/config
localhost.localdomain: Reading configuration data /etc/ssh_config
localhost.localdomain: Allocated local port 1023.
localhost.localdomain: Connecting to 10.10.10.203, port 22.
localhost.localdomain: Remote protocol version 1.99, remote software version OpenSSH_3.5p1
localhost.localdomain: Net::SSH::Perl Version 1.23, protocol version 2.0.
localhost.localdomain: No compat match: OpenSSH_3.5p1.
localhost.localdomain: Connection established.
localhost.localdomain: Sent key-exchange init (KEXINIT), wait response.
localhost.localdomain: Algorithms, c->s: 3des-cbc hmac-sha1 none
localhost.localdomain: Algorithms, s->c: 3des-cbc hmac-sha1 none
localhost.localdomain: Entering Diffie-Hellman Group 1 key exchange.
localhost.localdomain: Sent DH public key, waiting for reply.
localhost.localdomain: Received host key, type 'ssh-dss'.
localhost.localdomain: Host '10.10.10.203' is known and matches the host key.
localhost.localdomain: Computing shared secret key.
localhost.localdomain: Verifying server signature.
localhost.localdomain: Waiting for NEWKEYS message.
localhost.localdomain: Enabling incoming encryption/MAC/compression.
localhost.localdomain: Send NEWKEYS, enable outgoing encryption/MAC/compression.
localhost.localdomain: Sending request for user-authentication service.
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-linux-thread-multi/Crypt/DES.pm line 57.

##</code><code>##

print "Enter your username: ";
chomp(my $user = <STDIN>);

print "Enter your pass on that host: ";
chomp(my $user = <STDIN>);
my $ssh = Net::SSH::Perl->new($ip,protocol => '2', cipher => '3des-cbc', debug =>'1', interactive => '1');
$ssh->login($user,$pass);

... etc.