Net::OpenSSH ssh与scp

1. #!/usr/bin/perl
   
2. 
   
3. 
   
4. use 5.012;
   
5. use strict;
   
6. use warnings;
   
7. use autodie;
   
8. use Net::OpenSSH;
   
9. 
   
10. 
    
11. my %param = (
    
12. user => 'fivetrees',
    
13. passphrase => '123456',
    
14. key_path => '/home/fivetrees/.ssh/fivetrees',
    
15. timeout => 10
    
16. );
    
17. 
    
18. 
    
19. my $ssh = Net::OpenSSH->new('192.168.1.2', %param);
    
20. $ssh->system('echo "hello" >> xxxxx.txt');
    
21. $ssh->scp_put('/root/a.txt', '/root/');