#!/usr/bin/perl 
 
use Net::Ping; 
 
$host="localhost"; 
 
$p = Net::Ping->new(); 
print "$host is alive.\n" if $p->ping($host); 
$p->close();