use bimodal_constant FOO => "BAR";

print "\$FOO is $FOO\n" if FOO;