From Movable Type

From [1]. Needs FCGI Perl package.

 #!/usr/bin/perl
 use FCGI;
 while (FCGI::accept() >= 0) {
   print ("Content-type: text/html\r\n\r\n");
   print ("This is coming from a FastCGI server.\n<BR>\n");
 }