perl -e "$SIG{__DIE__} = sub { print qq($0 - $_\n)for @_ }; die qw(a lot of words)"
-e - alotofwords at -e line 1.

alotofwords at -e line 1.