Select Code to Download

$fh = $q->upload('file') or die_nice();

...
    print '<pre>', $q->escapeHTML(Dumper $q), '</pre>';
  exit;
}

<form method="post" action="http://mysite.com/cgi-bin/upload.cgi" enct
+ype="multipart/form-data">
<p>Upload File
...
<br>
<input type="submit" name="submit" value="Upload">
</form>