open ( my $UPLOADFILE, ">", $upload_dir/$fileto" ) or die "$!";
                            ^                  ^
                            |                  |
                            +------------------+