ksh << END_OF_KSH
> perl << END_OF_PERL
> my \\\$foo = qq{ bar \n };
> print qq{ FOO=\\\$foo };
> END_OF_PERL
> END_OF_KSH