Net::OpenSSH 使用例子

[root@dr-mysql01 mojo]# cat a1.pl
use Net::OpenSSH;
my $host = '121.4xx.xx1.41';
my $user = 'root';
my $key = '/root/.ssh/id_rsa';
my %param = (
             user => $user,
             key_path => $key,
             timeout => 100
             );
my $ssh = Net::OpenSSH->new($host,%param);
my ($stdout,$stderr) = $ssh->capture2("$ARGV[0]");
if($stdout){
    print $stdout;
    } else {
    print $ssh->error;
    $stderr and print $stderr;
    }