my $file = $cgi->param("Descrption1");
[...]
open ( UPLOADFILE, ">$dir/$file" ) or die "$!";