#!/usr/local/bin/perl

use strict;
use CGI::Fast qw(:standard);
    $COUNTER = 0;
    while (new CGI::Fast) {
	print header;
	print start_html("Fast CGI Rocks");
	print
	    h1("Fast CGI Rocks"),
	    "Invocation number ",b($COUNTER++),
            " PID ",b($$),".",
	    hr;
        print end_html;
    } 

AND

#!/usr/local/bin/perl

use strict;
use CGI::Fast;


while (new CGI::Fast) {
	my $query = new CGI;
	print $query->header ( );
	print "Fast CGI Rocks!\n";
}