#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(param);
my $runs =0;
my @num;

print "Content-type: text/plain\n\n";

while(param()) {
    printf "run %d\n", $runs++;
    if ($runs > 10) {
        print "Ran over 10 times\n";
        exit;
    }
}