note
japhy
CGI notwithstanding, the error is in your here-doc syntax. In Perl, here-docs must be created in the following ways:
<code>
print <<NO_SPACE_BETWEEN_THE_ANGLE_BRACKETS_AND_THIS_TEXT;
...
NO_SPACE_BETWEEN_THE_ANGLE_BRACKETS_AND_THIS_TEXT
# or
print << "SPACE_ALLOWED_WHEN_THIS_TEXT_IS_QUOTED";
...
SPACE_ALLOWED_WHEN_THIS_TEXT_IS_QUOTED
</code>
This is documented in [perlop]: "There must be no space between the '<<' and the identifier, unless the identifier is quoted. (If you put a space it will be treated as a null identifier, which is valid, and matches the first empty line.)"
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-1936">
<hr/>
Jeff <tt><font color="#0000ff">[japhy]</font></tt> Pinyan,
[id://371157|P.L., P.M., P.O.D, X.S.]:
<a href="http://japhy.perlmonk.org/modules/">Perl</a>,
<a href="http://japhy.perlmonk.org/modules/Regexp-Parser/">regex</a>,
and <a href="http://lists.perl.org/showlist.cgi?name=perl5-porters"><tt>perl</tt></a>
<a href="http://foldoc.doc.ic.ac.uk/foldoc/foldoc.cgi?query=hacker">hacker</a>
<br>
<i>Nos autem praedicamus Christum crucifixum</i> (1 Cor. 1:23) - <b><a href="http://thecrossreference.blogspot.com/">The Cross Reference</a></b> (My Blog)
</div></div>
747848
747848