$SIG{__DIE__} = sub { our @reason = @_ };

eval { die "Let's Try to die." };

END {
    our @reason;

    if (@reason) {
        print "We caught a call to die: @reason\n";
    }
}