BEGIN {
    # Override with itself so it can be overridden at run-time later.
    *CORE::GLOBAL::exit = sub {
        CORE::exit @_;
    }
}

{
     my $exit_code;
     no warnings 'redefine';
     local *CORE::GLOBAL::exit = sub {
         $exit_code = shift;
         goto EXIT;
     };


     # ...do code which calls abort handler...
     EXIT:
     $CGI::Fast::Ext_Request->Finish();
}