$ uname -sr
FreeBSD 5.4-RELEASE-p8
$ cat a.pl
#!/usr/bin/perl -w
print undef;
$ a.pl
Use of uninitialized value in print at ./a.pl line 2.
$ perl a.pl
Use of uninitialized value in print at a.pl line 2.