$upload_dir = "/home/upload";

 $query = new CGI;

 $filename = $query->param("data");       
 $filename = $query->param("data2");
 $filename =~ s/.*[\/\\](.*)/$1/;              
 $upload_filehandle = $query->upload("data");  
 $upload_filehandle = $query->upload("data2");
 
#read and upload the file
open UPLOADFILE, ">$upload_dir/$filename";          
etc


##</code><code>##

<FORM ACTION="http://www.xxx" METHOD="post"
   ENCTYPE="multipart/form-data">

      File to upload: <INPUT TYPE="file" NAME="data2">

        <INPUT TYPE="submit" NAME="Submit" VALUE="Upload">

          </FORM>