my $p = Net::Ping->new('udp', $timeout);