#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );

my $q = new CGI;
my $host = $q->param('host') || '';
if ($host =~ m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) {
  my $result = qx ( ping $host );
  print $q->header(),
  		$q->start_html('ping IP'),
  		$q->p($result),
  		$q->end_html;
} else {
  die "No IP, no ping!\n";
}
exit();