$ cat test.pl
use strict;
"Test A"or"Test B";
print;
$ perl test.pl
$ perl -w test.pl
Use of uninitialized value $_ in print at test.pl line 3.