Select Code to Download

#!/usr/bin/perl

...

    return ( $p->ping($host) ) ? 0 : 1;
}

From perldoc Net::Ping

...
the remote host is considered reachable.  Specifying the
"icmp" protocol requires that the program be run as root or
that the program be setuid to root.

#!/usr/bin/perl

...
 yahoo.com            80    Up