#!/usr/bin/perl
print "HTTP/1.0 200 OK\r\n";
print "Content-type: text/plain\r\n";
#print "Date: ".`date -R`;
print "Server: 31337/1.0\r\n";
print "\r\n\r\n";
$query_string = $ENV{'QUERY_STRING'};
($field_name, $ip) = split (/=/, $query_string);
print "\n";
print " \n";
print " Ping na IP $ip\n";
print " \n";
print "\n";
print "PING - ";
print `hostname -i`;
print " -->> $ip
\n";
print " \n";
print `traceroute $ip`;
print "
\n";
print "\n";
print "\n";