print <<'SUBMITFORM';
<form method="post" action="?" enctype="multipart/form-data">
<table><tr><td>File: </td>
<td><input type="file" name="upload"  size="50" maxlength="80" /></td></tr>
<tr><td /> <td><input type="submit" name="button" value="submit" /></td></tr></table>
<div></div></form><hr />

SUBMITFORM


##</code><code>##

C:\>perl -Mstrict -MCGI -we"print hr"
Unquoted string "hr" may clash with future reserved word at -e line 1.
Name "main::hr" used only once: possible typo at -e line 1.
print() on unopened filehandle hr at -e line 1.

C:\>perl -Mstrict -MCGI -we"print hr()"
Undefined subroutine &main::hr called at -e line 1.

C:\>perl -Mstrict -MCGI=hr -we"print hr()"
<hr />
C:\>perl -Mstrict -MCGI=hr -we"print hr"
<hr />
C:\>