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