use strict;
use CGI;
$|++;

my $ct = 0;
while (1)
{
   $ct++;
   if (1)
   {
      my $cgi = new CGI("q=$ct");
      my $blah = $cgi->param('q');
      print " blah: $blah\n";
   }
}