Select Code to Download

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

Use warning;
Use strict;

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

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

$ssh->login("root");