>perl -e"die qq{foo}"
foo at -e line 1.

>perl -e"die qq{foo\n}"
foo