5 # Perl-5 FastCGI example program
7 # Copyright (c) 1996 Open Market, Inc.
9 # See the file "LICENSE.TERMS" for information on usage and redistribution
10 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12 # $Id: tiny-perl-fcgi,v 1.1 1997/09/16 15:36:29 stanleyg Exp $
18 # Work around the "empty initial environment" bug
20 while (($ignore) = each %ENV) {
24 while(FCGI::accept() >= 0) {
25 print("Content-type: text/html\r\n\r\n",
26 "<title>FastCGI Hello! (Perl)</title>\n",
27 "<h1>FastCGI Hello! (Perl)</h1>\n",
28 "Request number ", ++$count,
29 " running on host <i>$ENV{'SERVER_NAME'}</i>\n");