#!/usr/bin/perl

@pinglist=('10.17.1.60', '10.17.1.61', '10.17.1.62', '10.17.1.63');

use Net::Ping;
my $p = Net::Ping->new(icmp, 5);

foreach $h (@pinglist) {
	if ($p->ping($h, 5)) { print "[p (ok) $h]"; } else { print "[p <NO> $h]"; }
	print "\n";
}

$p->close;

##</code><code>##

H:\>benchingping.pl
Benchmark: timing 5000 iterations of inline, modular...
    inline: 63 wallclock secs (22.26 usr +  8.72 sys = 30.98 CPU) @ 161.37/s (n=
5000)
   modular: 104 wallclock secs (38.02 usr + 23.94 sys = 61.95 CPU) @ 80.71/s (n=
5000)