print __LINE__, "\n";
print __LINE__, "\n";
eval {print __LINE__, "\n";};
__OUTPUT__
6
7
8

##</code><code>##

print __LINE__, "\n";
print __LINE__, "\n";
eval "print __LINE__,qq/\n/;
      print __LINE__,qq/\n/;
      die()";
print $@, "\n";
print __LINE__, "\n";

__OUTPUT__
6
7
1
3
Died at (eval 1) line 5.

12