#!c:/perl/bin/perl -w
use strict;  

use CGI::Fast;  
my $count = 1;  
while (my $q = CGI::Fast->new)
{  
        print("Content-Type: text/plain\n\n");
        print("Process ID: $$; Count is: " . ++$count);
}