$ perl -e 'sub dead { die "with info" } dead()'
with info at -e line 1.
$ perl -e 'sub dead { die "without info\n" } dead()'
without info
$