Select Code to Download

use CGI;

...
    $bytes /= 1000;
  return "File '$upname' uploaded. $bytes Kb received successfully.<br
+>\n";
}

    <FORM
     METHOD="POST"
...
     ENCTYPE="multipart/form-data">
        <INPUT TYPE="file" NAME="upload_file" SIZE="42">
    </FORM>

use CGI;
print CGI:VERSION;