cgi-fcgi-interp: wip test program

diff --git a/cprogs/cgi-fcgi-test b/cprogs/cgi-fcgi-test
new file mode 100755 (executable)
index 0000000..5abfe9a
--- /dev/null
+++ b/cprogs/cgi-fcgi-test
@@ -0,0 +1,20 @@
+#!./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++;
+}