hello.fcgi

#!/opt/local/bin/perl

use CGI::Fast qw(:standard);

my $COUNTER = 0;
while (new CGI::Fast) {
    print header;
    print start_html("FastCGI Hello, world!");
    print
        p("Hello, world!"),
        p("Invocation number: ", b($COUNTER++)),
        p("PID: ", b($$));
    print end_html;
}