想在windows 下写一个自动连接ssh的脚本，用哪个模块好？

machine

想在windows 下写一个脚本，自动连接ssh，然后执行一些命令，用哪个模块呢？
（我装的环境是activeperl 5.8.8）

我发现net::ssh::expect,用不了。


然后又试试 net::ssh:w32perl.

写了个测试脚本：
#!perl
use strict ;
use warnings;
use Net::SSH::W32Perl;
my $host = '192.168.1.22';
my $ssh = new Net::SSH::W32Perl($host);
$ssh->login('admin', 'admin');
my ($out, $err, $exit) = $ssh->cmd('ls');
print $out;

运行报错：
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl.pm line
110.

请达人指点，谢谢

ttcn_cu

Net::SSH:erl; 用起来这么拉风啊....
帮顶

machine

不要调侃了， 从cpan贴来的示范代码。
刚才的问题找到了，是这个模块的一个bug
调用前，加上下面这句就可以了：
$ENV{HOME} = "C:\\";

不过又出现了新问题：

脚本报错:
Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::Fas
tCalc at C:/Perl/site/lib/Crypt/DH.pm line 6
然后就挂起了。