P:\test>perl
print __LINE__, "\n";
print __LINE__, "\n";
eval "print __LINE__,qq/\\n/;
      print __LINE__,qq/\\n/;
      die()";
print $@, "\n";
print __LINE__, "\n";
^Z
1
2
1
2
Died at (eval 1) line 3.

7