Note that by default Net::Ping uses TCP as the default protocol (TCP echo port 7) which some systems may not respond to even if they are up. To use ICMP, you'll need to set the following AND be root / have admin privilege:

my $p = Net::Ping->new('icmp');
[download]