use Net::Ping;

my $host = 'perlmonks.com';
my $p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.