I can't begin to speculate on why Stein does what he does, but it appears he uses heredocs for the bits that are static.

Most of sulfericacid's use of CGI.pm's html generating functions doesn't involve any dynamic data, so he might as well use the functions once, and then write

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" /></t
+d></tr></table>
<div></div></form><hr />

SUBMITFORM
[download]

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:\>
[download]

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.