use Net::OpenSSH::Compat::Perl qw(:supplant);
use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new ('nogaro', options => [  "ssh_cmd /opt/csw/bin/ssh"
,"debug yes", "interactive yes" ]);
$ssh->login('root', 'no$go^');
my ($out, $stderr, $exit) = $ssh->cmd ("date");

##</code><code>##

Invalid or bad combination of options ('batch_mode') at /opt/csw/share/perl/site_perl/Net/OpenSSH/Compat/Perl.pm line 120