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