open (UPLOADFILE, ">$upload_dir/$filename") || die ("Can't open $upload_dir/$filename: ".$!);