my $ssh = Net::SSH::Perl->new( $host, port => 22 , protocol => 2, debug => 1, );