use Net::SSH::W32Perl;
my $ssh = Net::SSH::W32Perl->new($host,use_pty => 0,);
$ssh->login($user, $pass);
my $Command="ls -lrt";
my($stdout, $stderr, $exit) = $ssh->cmd($Command);
print "$stdout";