Select Code to Download

    open FILE, ">$base";
    binmode FILE;

...
        print FILE $_;
    $length += length($_);
    }

    $upload_path = "\uploaded_files\";
    $uploaded_file .= $upload_path + $base;
...
        print FILE $_;
    $length += length($_);
    }