Argument "ssh-rsa" isn't numeric in numeric eq (==) at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/Key/RSA1.pm line 94, <FH> line 22.
Argument "rpm" isn't numeric in numeric eq (==) at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/Key/RSA1.pm line 94, <FH> line 24.
Permission denied at ssh.perl line 11

##</code><code>##

                                                       
use Net::SSH::Perl;
my $ssh;
$ssh = new Net::SSH::Perl("192.168.128.4");
$ssh->login("root");

##</code><code>##

($x,$y,$z) = $ssh->cmd('pwd');