rbaecker@test ~ $ vi local.pl
#!/usr/bin/perl

use strict;
use warnings;

$_ = 'hallo';

print;

while( <DATA> ){ chomp }

print;

__END__
test
rbaecker@test ~ $ perl local.pl
Use of uninitialized value in print at local.pl line 12, <DATA> line 2.
hallo