P:\test>type test.pl8
#! perl -slw
use strict;

my $code = q[
#line 4000 "evalcode.pl"
print "hello";
print undef;
];

eval $code;

P:\test>test
hello
Use of uninitialized value in print at evalcode.pl line 4001.