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

##</code><code>##

#! perl -slw
use strict;

print __LINE__;
print __LINE__;
eval <<"EOS";
# line 1 "@{[__PACKAGE__]} eval @ line @{[__LINE__]}"
	warn;
	warn;
	die();
EOS

print $@;
print __LINE__;
__END__
P:\test>junk
4
5
Warning: something's wrong at main eval @ line 6 line 1.
Warning: something's wrong at main eval @ line 6 line 2.
Died at main eval @ line 6 line 3.

14