Select Code to Download

use strict;

...
eval "#line $line $sub\ndie";

print "2: $@";

1: Died at foo line 1.
2: Died at bar line 2.

use strict;

...
eval "die";

print "2: $@";

1: Died at evalt line 7.
2: Died at (eval 1) line 1.