if ( defined($foo) and $foo eq '?' ) { 
    print "\$foo OK!\n"; 
}

##</code><code>##

print "\$foo OK!\n" 
   if $foo and $foo eq '?';