$foo = "bar"; print $foo, "\n";