#!/usr/bin/perl -w

die "Blah";

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

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