#!/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 "\n"; print `traceroute $ip`; print "\n"; print "\n"; print "\n";