$ perl -le 'use warnings; if (!undef) { print "foo" }'
foo