#!/usr/bin/perl -w
use strict;

use Net::Ping;

my $host = shift or die "No host specified.\n";
my $p = Net::Ping->new;

my $res = $p->ping($host);

die "Unknown host $host\n" unless defined $res;

print "$host is ", $res ? 'alive' : 'dead', "\n";