#!/usr/bin/perl


use Net::SCP::Expect; 
my $scpe= Net::SCP::Expect->new; 


$svr = $ARGV[0];
$type = $ARGV[1];
$date = $ARGV[2];
print "$svr ";
$scpe->login('root', 'foo'); 
$scpe->scp("$svr:/var/log/ems/$type.$date.log", "/home/me/logs/$type.$
+svr.$date.log");
print "....done\n";
[download]