use Net::SSH::Perl;
use strict;
my $ssh = Net::SSH::Perl->new($host_ssh, port => 22);
print "Sto per connettermi al server $host_ssh via ssh\n";
$ssh->login($user_ssh, $passwd_ssh);