--- /dev/null
+#!./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++;
+}