perl -Mstrict -we 'sub f {my $v = shift; ! defined $v || $v > 0}; f(undef)'