Select Code to Download

<FORM ACTION="path_to_form.cgi" METHOD="POST" ENCTYPE="multipart/form-
+data">
 <td><INPUT TYPE="text" NAME="filename" SIZE="10" MAXLENGTH="50"></td>
...
</table>
<INPUT TYPE="submit" VALUE="upload"><BR>
</FORM>

#!/usr/bin/perl -w

...
{
  print "$filename uploaded: $size bytes<p>";
}

    /usr/lib/perl5/5.6.1/i386-linux
    /usr/lib/perl5/5.6.1
...
    /usr/lib/perl5/vendor_perl
    .
2.752