$params{'debug'} = 'true';


##</code><code>##

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


##</code><code>##


my (my $stdout, my $stderr, my $exit2) = $ssh->cmd('ls -l');

##</code><code>##

my ($stdout, $stderr, $exit2) = $ssh->cmd('ls -l');