use strict;

my $line = 1;
my $sub  = 'foo';

eval "#line $line $sub\ndie";
print "1: $@";

$line = 2;
$sub  = 'bar';
eval "#line $line $sub\ndie";

print "2: $@";

##</code><code>##

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

##</code><code>##

use strict;

eval
{
    die;
};
print "1: $@";

eval "die";

print "2: $@";

##</code><code>##

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