#!/usr/bin/perl

use warnings;
use strict;
use Net::Ping;
# use Module::Versions::Report;

my @pinglist = (
  'localhost',
  'www.google.com',
);

# my $p = Net::Ping->new('icmp', 5);
# my $p = Net::Ping->new('icmp', 5) or die "$!\n";
# my $p = Net::Ping->new('icmp', 5) or die "0+$!\n";
my $p = Net::Ping->new('icmp', 5) or die "$^E\n";

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

$p->close;