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: $@";