use FCGI; 
my $count = 0; 
my $request = FCGI::Request(); 
while($request->Accept() >= 0) {     
  myProg();
} 

sub myProg {
  my $C = new CGI;
  print $C->p("bla");
  print $C->start_div(),C->end_div();
}