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