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