print <<"FOO";
test \$bla
FOO

# prints:
test $bla