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";
[download]

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/Per
+l/SSH2.pm
line 39, <GEN0> line 1.
[download]

I have fixed this problem on windows, I have defined a enviroment variable HOME.

could you explain how did you set it? You mean you have set the Windows Home variable, but with what path?

Cygwin implements getpwuid. If you are using ActiveState, which doesn't implement getpwuid, then you'll probably have to go into the source at C:/Perl/site/lib/Net/SSH/Perl/SSH2.pm with your editor and change sub _proto_init to this

sub _proto_init { 
    my $ssh = shift; 
my $home = $ENV{HOME} || $ENV{USERNAME}; 
    unless ($ssh->{config}->get('user_known_hosts')) { 
        defined $home or croak "Cannot determine home directory, pleas
+e set the environment variable HOME"; 
        $ssh->{config}->set('user_known_hosts', "$home/.ssh/known_host
+s2"); 
}
[download]

my $home should read:

my $home = $ENV{HOME} || $ENV{USERNAME};
[download]

http://search.cpan.org/grep?cpanid=TURNSTEP&release=Net-SSH-Perl-1.34&string=getpwuid&i=1&n=1&C=0

31:    - If ENV{HOME} is not set, use getpwuid. If both fail and the d
+ir 
142:    - getpwuid is now called in an eval, so on systems that do not
[download]