use FCGI;

my $r = FCGI::Request;

while ($r->Accept >= 0) {
  print "Content-type: text/html\n\n";
  print 123;
}