$ perl -w
use strict;
print -e undef;

Use of uninitialized value in -e at - line 2.
Use of uninitialized value in print at - line 2.