Select Code to Download

sub that_cgi_script {
  ...
...
  #    eval and ignored
  # 3) may redirect: print Location header and call exit()
}

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

BEGIN { *CORE::GLOBAL::exit = sub { goto EXIT }; }
while (CGI::Fast->new()) {
...
  EXIT:
    $CGI::Fast::Ext_Request->Finish();
}