#!/usr/bin/perl -w
use strict;

$|++;

use CGI;
my $cgi = CGI->new;
my $number = $cgi->param('number');

print "param: ".$number."\n";

my $n;
print "Command line reporter\n";print "Called with ",$#ARGV+1,"
parameters which ",        @ARGV == 1 ? "was" : "were" ,"\n";print
(++$n,": $_\n") foreach (@ARGV) ;

for(my $i=0;$i<$number;$i++)
{
        print("*\n");
        sleep 1;
}

##</code><code>##

param: 4
Command line reporter
Called with 1
parameters which was
1: number=4
*
*
*
*

##</code><code>##

exec '/usr/bin/perl', '-T', 'child.pl', 'number=10' or
 die "Cannot execute : $!";
##</code><code>##

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=10
Use of uninitialized value in numeric lt (<) at child.pl line 17.