Perl 检测域名是否正常解析

use Net::Ping;
my @array=( "www.zjtlcb.com","www.jhccb.com.cn","www.czcb.com.cn","www.wzcb.com.cn","ebank.czcb.com.cn","www.hzbank.com.cn"
             );
while (1==1){
        foreach $host (@array){
        $p = Net::Ping->new("icmp");

         open (A,">>ping.log");
        (print "$host is active.n",print A ("$host is active.n")
)  if $p->ping($host,8);

       open (B,">>ping.log");
       ( print "$host is lost.naaaaaaa",print B ("$host is lost.n")
)  unless $p->ping($host,8);
      
   $p->close();
# sleep(2)    
}}