#!/usr/bin/perl -w

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

die "Blah";

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