The here-doc acts like a normal print statement, so escaping works:

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

# prints:
test $bla
[download]