Net::Ping::External is a module which interfaces with the "ping"
command on many systems. It presently provides a single function,
ping(), that takes in a hostname and (optionally) a timeout and
returns true if the host is alive, and false otherwise. Unless you
have the ability (and willingness) to run your scripts as the
superuser on your system, this module will probably provide more
accurate results than Net::Ping will.
New port added, thanks!