if (defined $foo and $foo) { ...