freebie:~ 755> cat quux
use warnings;
my $foo = undef;
if( $foo == undef ) { print "true\n" }
freebie:~ 756> perl quux
Use of uninitialized value in numeric eq (==) at quux line 3.
Use of uninitialized value in numeric eq (==) at quux line 3.                   
true