第一次尝试RHEL时Perl ping失败

Question

#!/usr/bin/perl
use Net::Ping;

#Add dns to resolv.conf
#Modify nsswitch.conf

system("sync"); # in case of files are not written instantly

$p = Net::Ping->new(icmp);
my $main_ip="www.google.com";

if ($p->ping($main_ip)){
    $result=true;
    print "$main_ip is alive \n";
}else{
    print "$main_ip is down \n";
}

第一次尝试时，我无法在RHEL中对上述脚本执行ping操作。当我重新运行脚本时，它会成功ping通。

我试图增加睡眠功能的延迟。或对新功能和/或ping功能超时，但在第一次尝试时会立即失败。

有什么想法吗？