use Net::SSH::Perl;


$conn=Net::SSH::Perl->new("10.94.195.78");
$conn->login("root","gone2far");
print "Login is successful \n";
($output,$errors,$exit)=$conn->cmd("ls -l");
print $output;