#! /usr/bin/perl ############################################################### # This script is © 1999 - 2000 webmaster@wtv-tricks.cx # ############################################################### use CGI qw(param); $host = param("host"); $results = `traceroute $host`; if ($host eq "") { print "Content-type: text/html\n\n"; print < Traceroute

Host:
EndOfCoding } else { print "Content-type: text/html\n\n"; print < Results of traceroute to $host 

$results
EndOfCoding }