Perl Net::openSSH 远程登录多台机器执行脚本

需求：在多台机器需要同时执行文件，并且是不定期的，crontab不适用了，没办法了写了这个Script，简单也没什么错误提示，只为执行即可；

前提：在跳板机上已经和机器的ssh打通；在Script机器上安装perl模块Net::openSSH

Net-OpenSSH-0.57.tar.gz

解压，发现需要安装其他模块；

逐个安装:

?

将上面的四个模块安装完毕；

编写脚本：allget.pl

#!/usr/bin/perl
use strict;
use Net::OpenSSH;

open (HD,"/home/user/alljd") || die "Cannot find file:$!n";
my @jd=<HD>;
close (HD);
my $jd;
foreach $jd(@jd) {
chomp ($jd);
my $user="user";
my $host=$jd;
#my $passphrase='user密码';
my $key='/home/user/.ssh/id_rsa';
my $cmd="ls";

my %param = (
??? user => $user,
#??? passphrase => $passphrase,
??? key_path => $key,
??? timeout => 60
??? );
my $ssh = Net::OpenSSH->new($host,%param);
my ($stdout,$stderr) = $ssh->capture2("sudo ./get.pl");
if ($stdout){
??? print $host is $stdout;
} else {
??? print $ssh->error;
??? $stderr and print $stderr;
}
}

alljd是个文本文件，get.pl是远程机器上的Script；

测试正常；