#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

BEGIN { *CORE::GLOBAL::exit = sub { die("exit called") } }
END { say "END block"; }

do { exec "/bin/true" }; # Assuming a Unix-like system here
say "got here";