#!/usr/bin/perl
use strict;
use warnings;
use FCGI;
my $r=FCGI::Request();
while ($r->Accept()>=0) {
print
"Content-Type: text/html\r\n",
"\r\n",
"",
"CGI or FastCGI?\n",
"CGI or FastCGI?
\n",
'This application runs in ',($r->IsFastCGI() ? 'FastCGI' : 'CGI')," mode.
\n",
"\n";
}