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