$ perl -Mwarnings -le 'my $x; print 1 if ! defined $x'
1