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

use Foo;

die "Died here";

##</code><code>##

package Foo;

local $SIG{__DIE__} = sub { print "Caught in " . __PACKAGE };

sub _die { die };


1;

##</code><code>##

$> perl tst.pl
Died here at tst.pl line 7.