#!/usr/bin/perl
use FCGI; # Imports the library; required line
# Initialization code
$cnt = 0;
# Response loop
while (FCGI::accept >= 0) {
print "Content-type: text/html\r\n\r\n";
print "\nFastCGI Demo Page (perl)\n\n";
print "FastCGI Demo Page (perl)
\n";
print "This is coming from a FastCGI server.\n
\n";
print "Running on $ENV{SERVER_NAME} to $ENV{REMOTE_HOST}\n
\n";
$cnt++;
print "This is connection number $cnt\n";
}