#!/usr/bin/perl
#Perl program template.
use Net::Ping;

$p = Net::Ping->new("udp");
print "google is alive.\n" if $p->ping(google.com);
$p->close();