perl> $_ = 'Foo'; print;
Foo
 perl> print;
print;

 perl> my $a = 'Bar'; print $a;
Bar
 perl> print $a;
Use of uninitialized value in print at (eval 4) line 1, <> line 4.