Вот код:

#!/usr/bin/perl
use strict;
use FCGI;
my $count = 0;
my $socket = FCGI::OpenSocket(":9000", 5);
my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket);
while ($request->Accept() >= 0) {
	print("Content-type: text/html\r\n\r\n", ++$count);
}
FCGI::CloseSocket($socket);

Ничего заумного. Запускаю. Смотрю.

$ sockstat -4
USER     COMMAND    PID   FD PROTO  LOCAL ADDRESS         FOREIGN ADDRESS
crush    perl       2708  4  tcp4   *:9000                *:*

При попытке подключения браузером по адресу http://127.0.0.1:9000 получаю девственно чистую страницу... Судя по поведению браузера происходит нормальное подключение и столь же нормальное отключение, получая при этом документ нулевой длины. Содержимое цикла while похоже не выполняется. Проверяем так:

while ($request->Accept() >= 0) {
	`echo 'oops' >> log`;
	print("Content-type: text/html\r\n\r\n", ++$count);
}

Как так? =)