perl自动登录ping脚本

#!/usr/bin/perl
open (IPADR,"/root/lee/test/ip") || die "read file error";
my $line;
while ( defined ($line=<IPADR>) ){
??? @line=split(/s+/,$line);
?? #@line=$line;
??????? #print @line;

??????????????? foreach $ip (@line){
if ($ip=~/^d+.d+.d+.d/)
{
?? chomp($ip);
?? $cmd="ssh root@$ip ping 202.96.209.5 -c 1 | grep avg | awk -F / '{print $6}'n";#? print "$cmd";$res=`$cmd`;#print $res;}else {chomp($line);print "$linen";}}print $res;}