use FCGI;
 
my $count = 0;
my $request = FCGI::Request();
 
while ($request->Accept >= 0) {
	print('Content-type: text/html', "\r\n\r\n");
	print 'Count: ', $count++);
}

---

Note: warn() et die() ne produiront aucun message dans votre journal d'erreur par défaut. Vous pouvez adresser ce problème de la manière suivante:

$warn_handler = sub { print STDERR @_ };
$die_handler = sub { print STDERR @_ unless $^S };

$SIG{__WARN__} = $warn_handler if (tied (*STDIN));
$SIG{__DIE__} = $die_handler if (tied (*STDIN));

#include "fcgi_stdio.h"
#include <stdlib.h>
 
int
main(int argc, char *argv)
{
	int count = 0;
	
	while (FCGI_Accept() >= 0) {
		printf("Content-type: text/html\r\n\r\n"
		       "Request: %d on host %s", count++,
		       getenv("SERVER_NAME"));
	}
	return (0);
}

---

Vous le compileriez avec:

  $ cc -I/usr/local/include -o foo foo.c -L/usr/local/lib -lfcgi

Pour des applications plus complexe, vous serez peut-être intéressé par notre toolkit, PerCGI.