my $FCGI_EXIT = "FCGI NORMAL EXIT\n";
BEGIN { *CORE::GLOBAL::exit = sub { die $FCGI_EXIT }; }
while (CGI::Fast->new()) {
    eval { that_cgi_script(); };
    die $@ if $@ ne q{} && $@ ne $FCGI_EXIT;
    $CGI::Fast::Ext_Request->Finish();
}