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