1 #!./cgi-fcgi-interp -c10,-M1,perl
8 open REALSTDERR, ">&2";
12 eval { print REALSTDERR "[$$ real-stderr] closing\n"; };
19 my $request = FCGI::Request();
22 print STDERR "[$$ stderr starting]\n";
23 print REALSTDERR "[$$ real-stderr starting]\n";
25 while ($request->Accept >= 0) {
26 my $ua = $ENV{HTTP_USER_AGENT} // '<none>';
28 Content-Type; text/plain
34 print STDERR "[$$ stderr] serviced $count ($ua).\n";
35 print REALSTDERR "[$$ real-stderr] serviced $count ($ua).\n";