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