my $cgi = new CGI; # neues Objekt erstellen 
my $file = $cgi->param("Descrption1");
my $upload_filehandle = $cgi->upload("File1");

open ( UPLOADFILE, ">$dir/$file" ) or die "$!";  
while ( <$upload_filehandle> )  
{  
 print UPLOADFILE;  
}  
 
close UPLOADFILE;