$ perl -Mwarnings -le 'my $x; print 1 if $x == undef'
Use of uninitialized value in numeric eq (==) at -e line 1.
Use of uninitialized value $x in numeric eq (==) at -e line 1.
1

##</code><code>##

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

##</code><code>##

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