#!/usr/bin/perl

@pinglist=("www.yahoo.com", "www.thisisntreal.com", "wlindsey.bbcg.com");

use Net::Ping;
sub test_ping;

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

sub test_ping { # test_ping($hostname)
    my $hostname=shift;
    my $p=Net::Ping->new(icmp,5);
    return $p->ping($h,5);
    $p->close;
}   # end test_ping