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