use strict;
use warnings;
use CGI::Fast;
 
our $count = 0;
 
while ( my $q = new CGI::Fast ) {
    $count++;
    print $q->header( "text/plain" ),
          "You are request number $count. Have a good day!\n";
}