Select Code to Download

*FOO = \"bar";

use constant FOO => "bar";

*FOO = \"BAR";
print qq(\$FOO is set to "$FOO"\n);

use constant FOO => "BAR";
print qq(Constant "FOO" is set to ) . FOO . qq(\n);

use constant FOO => "BAR";
print "The value of FOO is $FOO\n";