$ cat xxx
#!/usr/bin/perl -w

print undef;
$ perl xxx
Use of uninitialized value in print at xxx line 3.