#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

# wie kann man zeitweise exit() umleiten?
my $sub_code = q( sub {
    say "bin im sub_code";
    exit();     
}; );
say "jetzt soll exit() abgefangen werden";
*CORE::GLOBAL::exit = sub { say "exit() sub"; };    # Quelle: http://stackoverflow.com/a/25376064
eval "&{$sub_code}();";
say "jetzt soll exit() wiederhergestellt werden";
*CORE::GLOBAL::exit = *CORE::exit;  # Quelle: http://stackoverflow.com/a/25376064
eval "&{$sub_code}();";
say "dieser Text darf nicht mehr zu sehen sein";