use strict;
use warnings;
use Net::SSH::W32Perl;

my $host = 'host';
my $pass = 'pwd';
my $user = 'userid';
my $cmd  = 'command';

my $ssh = new Net::SSH::W32Perl(
          $host, 
          debug => 1,
          protocol => 2
);
$ssh->login($user, $pass);

my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print $stdout, "\n";

##</code><code>##

Reading configuration data /.ssh/config
Reading configuration data /etc/ssh_config
Connecting to <hostname>, port 22.
Socket created, turning on blocking...
Remote protocol version 2.0, remote software version OpenSSH_5.2
Net::SSH::Perl Version 1.34, protocol version 2.0.
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm
line 39, <GEN0> line 1.