use Net::Ping;

$host=$ARGV[0];
$p=Net::Ping->new();
print "PING: $host\n";
$status=$p->ping($host);
print "STATUS: $status\n";