cprogs/cgi-fcgi-test

   1 #!./cgi-fcgi-interp -c10,-M1,perl
   2 # -*- perl -*-
   3
   4 use warnings;
   5 use strict;
   6
   7 use FCGI;
   8
   9 my $count = 0;
  10 my $request = FCGI::Request();
  11
  12 while ($request->Accept >= 0) {
  13     print <<END;
  14 Content-Type; text/plain
  15
  16 success
  17 count=$count
  18 END
  19     $count++;
  20 }