#!./cgi-fcgi-interp -c10,-M1,perl
# -*- perl -*-

use warnings;
use strict;

use FCGI;

my $count = 0;
my $request = FCGI::Request();

while ($request->Accept >= 0) {
    print <<END;
Content-Type; text/plain

success
count=$count
END
    $count++;
}