http://www.perlmonks.org?node_id=636127


in reply to goto in CORE::GLOBAL::exit - is it safe?

Ok, this code jumped out at me & it may help you out or it has nothing to pertain to the current title..
=P
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(); }