use Net::SSH::Perl; 
my $ssh;
$ssh = new Net::SSH::Perl("192.168.128.4"); $ssh->login("root"); 
($x,$y,$z) = $ssh->cmd('pwd');

##</code><code>##

Use warning;
Use strict;

##</code><code>##

$ssh = new Net::SSH::Perl("192.168.128.4");

##</code><code>##

$ssh = Net::SSH::Perl-> new("192.168.128.4");

##</code><code>##

$ssh->login("root");