my $sub_code = sub {
    say "bin im sub_code";
    eval "exit();";
};
say "jetzt soll exit() abgefangen werden";
*CORE::GLOBAL::exit = sub { say "exit() sub"; }; 
$sub_code->();
say "jetzt soll exit() wiederhergestellt werden";
*CORE::GLOBAL::exit = *CORE::exit;  
exit();
say "dieser Text darf nicht mehr zu sehen sein";