#!/usr/bin/perl -w

use FCGI; 
use CGI;
my $count = 0; 
my $request = FCGI::Request(); 

while($request->Accept() >= 0) { 
    my $C = new CGI;
    print("Content-type: text/html\r\n\r\n", ++$count); 
    print $C->h1("HUHU");
}