#!/usr/local/fcgi/bin/perl
  use Fast::CGI qw(:standard);
     
  # Open databases, and do other time consuming 
  # initialization stuff....
  $COUNTER = 0;
     
  # Here's the main loop
  while (new CGI::Fast) {
    print
        header,
        start_html("FastCGI Script"),
        h1("FastCGI Script"),
        "You are caller ",$COUNTER++,
        " on process number ",strong("$$."),
         hr,
         "Return to ",a({href=>referer()},referer()),
         end_html;
   }