#!/usr/bin/perl -w

$SIG{__DIE__} = sub { print "Dead\n"; };

die "Blah";

END {
	print "This is the end, my friend.\n";
}

##</code><code>##

Dead
blah at ./foo.pl line 5.
This is the end, my friend.

##</code><code>##

#!/usr/bin/perl -w

die "Blah";

$SIG{__DIE__} = sub { print "Dead\n"; };

END {
	print "This is the end, my friend.\n";
}

##</code><code>##

Blah at ./foo.pl line 3.
This is the end, my friend.