in reply to How bad is $SIG{__DIE__} really?
perl -e "$SIG{__DIE__} = sub { print qq($0 - $_\n)for @_ }; die qw(a l +ot of words)" -e - alotofwords at -e line 1. alotofwords at -e line 1. [download]
See Perl's Warn and Die Signals and Any last words?
L*