... open UPLOADFILE, ">$upload_dir/$filename" or die "$!\n"; ...