|| make an HttpFormData, will default to multipart posting
let form-data:HttpFormData = {new HttpFormData}
|| add a string parameter
{form-data.append {new HttpFormStringParam, "field1", "value1"}}
let u:Url = {url "http://www.example.com/some-file.txt"}
|| add a files parameter, with one file in it
{form-data.append
    {new HttpFormFilesParam,
        "field2",
        u.filename,
        {read-bytes-from u}
    }
}

|| now send our 2 parameter form to a webserver
let post-url:Url = {url "http://www.example.com/cgi-bin/script"}
|| will throw an HttpException if it can't get to
|| post-url, or if it returns some failure status code
let tis:TextInputStream =
    {({post-url.instantiate-File} asa HttpFile).http-read-open
        request-method = HttpRequestMethod.post,
        request-data = form-data
    }
let buf:StringBuf = {new StringBuf}
|| read in the contents that the server sent back
{try
    {tis.read-one-string buf = buf}
 finally
    || close the stream, since we read everything in
    {tis.close}
}