$upload_path = "\uploaded_files\";
    $uploaded_file .= $upload_path + $base;

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

    while (<$file>) {
        print FILE $_;
	$length += length($_);
    }