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

sub die_nice {
    print $q->header;
    print "<p>Failed again, lets look at our CGI.pm version: ", $CGI::VERSION
    print "<p>Now here is our CGI object";
    use Data::Dumper;
    print '<pre>', $q->escapeHTML(Dumper $q), '</pre>';
  exit;
}

##</code><code>##

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