#!perl

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

my $ping_cmd = 'c:/WINNT/system32/ping';

my $query = CGI->new();
my $param = $query->Vars();

print header();
print start_html("Ping page");

if (exists $param->{ip}) {
	my $result = `$ping_cmd $param->{ip}`;
	print p("You try to ping $param->{ip}, the result is:",
			br(),
			pre($result));
} else {
	print p("No ip address specified in query");
}

print end_html();