use Net::SSH::W32Perl;
my $ssh = new Net::SSH::W32Perl($host);
$ssh->login($user, $pass);
my ($out, $err, $exit) = $ssh->cmd('ls -lrt');
print "$out, $err, $exit";