>perl -e"print qq{print <<ENDHERE\nabc\nENDHERE}" > test.pl

>perl test.pl
Can't find string terminator "ENDHERE" anywhere before EOF at test.pl line 1.

>perl -e"print qq{print <<ENDHERE\nabc\nENDHERE\n}" > test.pl

>perl test.pl
abc

>

##</code><code>##

$ perl -e'print qq{print <<ENDHERE\nabc\nENDHERE}' > test.pl
$ perl test.pl
Can't find string terminator "ENDHERE" anywhere before EOF at test.pl line 1.
$ perl -e'print qq{print <<ENDHERE\nabc\nENDHERE\n}' > test.pl
$ perl test.pl
abc
$