$foo="can I get you a \$bar?\n";
$bar="cow";
print $foo;
$bar="chicken";
print $foo;