http://www.perlmonks.org?node_id=200168


in reply to Module Net-Ping

Try changing my $p = Net::Ping->new('udp', $timeout); to
my $p = Net::Ping->new('tcp', $timeout);
or
my $p = Net::Ping->new('icmp', $timeout);
if you can set the setuid to root (with the icmp).

-Enlil