use CGI;

# allow uploads
$CGI::DISABLE_UPLOADS = 0;
$CGI::POST_MAX        = 1,024,000;
my $q = new CGI;

.....

sub upload_file {

    no strict 'refs';  # CGI < v2.47 use vvvvvv a symbolic reference for the filehandle
    my $fh = $q->upload('upfile') || $q->param('upfile');; 
    my $buffer;
    open (OUTFILE, ">$path_to_files/$upname") 
        or die_nice("Unable to create upload output file '$upname': $!\n");
    binmode $fh;
    binmode OUTFILE;
    my ($bytes, $read);
    while ($read = read ($fh, $buffer, 16384)) {
        print OUTFILE $buffer;
        $bytes += $read;
    }
    close OUTFILE;
    $bytes /= 1000;
  return "File '$upname' uploaded. $bytes Kb received successfully.<br>\n";
}

##</code><code>##

    <FORM
     METHOD="POST"
     ACTION="http://somewhere.com/cgi-bin/script.cgi";
     ENCTYPE="multipart/form-data">
        <INPUT TYPE="file" NAME="upload_file" SIZE="42">
    </FORM>

##</code><code>##

use CGI;
print CGI:VERSION;