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