#!"c:/programme/perl/bin/perl.exe" -w
#
# Kompendium der Web-Programmierung
#
# FastCGI-Anwendung mit PERL
# (Standardbeispiel: persistenter Zaehler)
#

use FCGI;   ###  PERL-Modul fuer FastCGI

$cnt = 0;

### klassisches fastCGI-Schleife

while (FCGI::accept >= 0) {
	$cnt++;
	print <<"finish"
Content-type: text/html\n\n
<HTML>
	<HEAD>
		<TITLE>Webkompendium: fastCGI mit PERL</TITLE>
		<link rel="stylesheet" type="text/css" href="/webkompendium/css/webkompendium.css">
		<link rel="shortcut icon" href="/webkompendium/images/springer_icon.ico">
	</HEAD>
	<BODY>
		<CENTER>
			<HR><H2>Kompendium der Web-Programmierung<BR>fastCGI mit PERL</H2>
			<HR><H3>Prozess von Server <CODE>$ENV{SERVER_NAME}</CODE>
			<BR>Dies ist Anfrage Nr. $cnt<HR></H3>
		</CENTER>
	</BODY>
</HTML>
finish
;

} # while