#!/usr/bin/perl -w

use strict;
use Net::Ping;

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