use warnings;
use strict;
use Net::Ping;

my @hosts = qw( www.ovidinexile.com www.yahoo.com 127.0.0.1 www.perlmonks.org );
my $p = Net::Ping->new();

foreach my $host ( @hosts ) {
    print "$host\t" . $p->ping( $host ) . "\n";
}

##</code><code>##

www.ovidinexile.com     0
www.yahoo.com   0
127.0.0.1       0
www.perlmonks.org       0

##</code><code>##

icmp socket error - Unknown error at C:\WINNT\profiles\cp\desktop\ping.pl line 6