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

$|++;

use CGI;
my $cgi = CGI->new;

$ARGV[0] =~ /number=(\d+)/;
$number = $1;

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