Select Code to Download

use Net::Ping;

...
print "$host is alive.\n" if $p->ping($host);

$p->close();

# $p{"timeout"}   is wrong 
# $p->{"timeout"} is correct