use Net::SSH::W32Perl;
my $ssh = Net::SSH::W32Perl->new($host,debug=>1);
$ssh->login('$user','$pass');
my($stdout, $stderr, $exit) = $ssh->cmd("/bin/bash /bin/ls -lrt");
print "$stdout, $stderr, $exit";