use Net::SSH::Perl;
my $ssh;
$ssh = new Net::SSH::Perl("192.168.128.4"); $ssh->login("root");
($x,$y,$z) = $ssh->cmd('pwd');
add:
Use warning;
Use strict;
Also, you may want to change:
$ssh = new Net::SSH::Perl("192.168.128.4");
To:
$ssh = Net::SSH::Perl-> new("192.168.128.4");
And, is this your entire code?
Are all your permissions and passwords the same on each box you're testing?
The third box may require a passwd in the line:
$ssh->login("root");
following "root"
Es gibt mehr im Leben als Bücher, weißt du. Aber nicht viel mehr. - (Die Smiths)"