$SIG{__DIE__} = sub { print "and the rest was silence ...\n" };
die();

__output__

and the rest was silence ...
Died at - line 2.