Select Code to Download

<FORM ENCTYPE="multipart/form-data" ACTION="../cgi-bin/upload.pl" METH
+OD="POST">
Please select a file to upload: <BR> 
<INPUT TYPE="FILE" NAME="file">
<p>
<INPUT TYPE="submit">
</FORM>

#! c:/Perl/bin/Perl.exe -wT

# Script to upload file. This script is tied to upload.html
...
       (sprintf "%d", $up_file/1024)==(sprintf "%d", $down_file/1024)-
+1);
    return 0
    }