sub fileUpload {
    my $q = new CGI;
    
    if( my $id = $q->param( 'id' ) ) {
        #.......
    } elsif ( my $fileName = $q->upload( 'uploadfile' ) ) {
        my $fileInfo = $q->uploadInfo($fileName);
        print "Content-Type: text/html\n\n";
        print "uploadInfo:<br>";
        print "###$fileName###";
        print $q->uploadInfo($fileName)->{'Content-Type'};
        #map {print "  $_: " . $fileInfo->{$_} . "<br>\n" } sort keys %$fileInfo;
        exit(0);
        #.....