open OUTFILE, ">$upload_dir/$file" or die "Cannot open file";
while (<$file>) {
  print OUTFILE;
}
close OUTFILE;