#!/usr/bin/perl 
 
use CGI; 
use FCGI; 
use Data::Dumper; 
 
my $count = 0; 
my $request = FCGI::Request(); 
 
while($request->Accept() >= 0) { 
  print("Content-type: text/html\r\n\r\n"); 
  print "Hello world - count = $count\n"; 
 
  my $q = new CGI; 
 
  print "Name = " . $q->param("name") ; 
  $count++; 
}