Net :: Ping Times Out

Question

我有一个非常简单的脚本来ping主机并找出ping的持续时间

use 5.010;

use Net::Ping;
my $p = Net::Ping->new();
my ($ret, $duration, $ip) = $p->ping('google.com');
say $ret;
say $duration;
say $ip;

出于某种原因，这会导致超时（$ret返回0而$duration返回5秒）

这是什么原因？