use Carp;

$SIG{__DIE__} = sub {print STDERR "handler called\n"};

eval {

	eval {
		confess "blah\n";
	};
	if ($@) {
		die $@;
	}
};
print $@ if $@;