#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

use utf8;

say "jetzt soll exit() abgefangen werden";
*CORE::GLOBAL::exit = sub { say "exit() sub"; };    # Quelle: http://stackoverflow.com/a/25376064
do "sub.pl";
sub_code('foo');
say "jetzt soll exit() wiederhergestellt werden";
*CORE::GLOBAL::exit = *CORE::exit;  # Quelle: http://stackoverflow.com/a/25376064
do "sub.pl";
sub_code('bar');
say "dieser Text darf nicht mehr zu sehen sein";

#################################################
sub sub_code {
    print "bin im sub_code mit Par. '$_[0]'", "\n";
    exit();
}
#################################################