use Net::Ping::External qw(ping);
my $alive = ping(host => "www.perlmonks.org");
print "alive: $alive\n";