#!/usr/bin/perl
use FCGI;
$cnt = 0;
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{USER} to $ENV{REMOTE_HOST}\n\n");
    $cnt++;
   print ("This is connection number $cnt\n");
}