print "\$foo is ";
print $foo? "true" : "false";
print "\n";