Select Code to Download

  $lightweight_fh  = $q->upload('field_name');

  # undef may be returned if it's not a valid file handle
...
      print OUTFILE $buffer;
    }
  }

       $filename = $query->param('uploaded_file');
       $tmpfilename = $query->tmpFileName($filename);