Select Code to Download

use Net::Ping;
$host=127.0.0.1;
...
  $p = Net::Ping->new();
  print "$host is alive.\n" if $p->ping($host);
  $p->close();