Net::SSH::Perl

#!/usr/local/bin/perl -w

use strict;
use warnings;

use Net::SSH::Perl;

my $host = "localhost";
my $user = "user1";
my $pass = "user1";
my $cmd  = "date";

eval{
  my $ssh = Net::SSH::Perl->new($host);
     $ssh->login($user, $pass);

  my($stdout, $stderr, $exit) = $ssh->cmd($cmd);

  print "stdout=$stdout\n";

  1;
};

...Net::SSH::Perl が入ってなかったorz

cpanで入れようと思ったらちょー重い＃

だめだー