安装模块：

  1. cpan -i Net::SSH::Perl  
  2. cpan -i Net::SCP::Expect

Net::SSH::Perl

perl代码：

  1. #查看192.168.1.102服务器的/tmp目录下的文件  
  2. my $ssh = Net::SSH::Perl->new('192.168.1.102');  
  3. $ssh->login('user', 'password');  
  4. $ssh->cmd('ls -al /tmp/');  

 

Net::SCP::Expect

  1. #将test.tar.gz文件复制到192.168.1.102服务器的/tmp目录下  
  2. my $scpe = Net::SCP::Expect->new;  
  3. $scpe->login('user', ’password‘);  
  4. $scpe->scp("/tmp/test.tar.gz", '192.168.1.102:/tmp/');