Help for this page
Select Code to Download
Select
or
download this
use IO::Socket; ... { print "Pinged timed out!\n"; }