#! 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