*foo = \"foo";
print "foo is $foo.\n";
$foo = "bar";    # Run time error. Modification of read-only value attempted.