$ 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
$