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