#!/usr/bin/perl5 -w
use Net::Ping;

my @pinglist =	(
				 "svhappy"
				,"w01b0rji"
				,"w01b0rji.cube.fred.ch"
				,"svmoloch.flur.fred.ch"
				,"160.69.125.142"
				);

$p = Net::Ping->new();
		
foreach $h (@pinglist)
{
    chomp (my $res = `ping $h`);
	if ($res) {print "$h \`ping\` OK :\t$res\n"}
	else {print "$h \`ping\` NOK\n"}
	if ($p->ping($h)) {print "$h \$p->ping OK\n"}
	else {print "$h \$p->ping NOK\n"}
	print "\n";
}
$p->close();