use strict;
use warnings;

BEGIN { *CORE::GLOBAL::exit = sub { print "You'll never take me alive, copper!\n"; }; }

eval { die };
print "You can see I'm still alive!\n";
eval { exit };
print "You should never see this print\n";
eval { CORE::exit };
print "Now this you won't get to see\n";