#!/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;
####
Content-Type: text/html; charset=ISO-8859-1
Traceroute Results
Traceroute Results
param: 4
Command line reporter
Called with 1
parameters which was
1: number=4
*
*
####
Traceroute Results
param: Command line reporter Called with 1 parameters which was 1: number=4 * *
####
Traceroute Results
Use of uninitialized value in concatenation (.) or string at child.pl line 10. param: Command line reporter Called with 1 parameters which was 1: number=4 * *