#!/usr/bin/perl -w

use strict;

$|++;

$ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin";

use CGI qw(:all delete_all escapeHTML);

print header(),
start_html(-title => "Traceroute Results");
print h1("Traceroute Results");

#open STDERR, ">&=1";

exec '/usr/bin/perl', '-T', 'child.pl', 'number=4' or die "Cannot execute : $!";

print end_html;