#!/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;
}