function check_files
  return clob
is
  c_url            constant  varchar2(32767) := 'https://check.our.files.com';
  v_http_request   utl_http.req;
  v_http_response  utl_http.resp;
  
  v_buffer_size    number(3) := 512;
  v_soap_request   varchar2(32000);
  v_soap_response  clob;
  v_text_data      varchar2(32000);
  v_result         clob;
begin
  v_soap_request := '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
                     <soapenv:Header/>
                     <soapenv:Body/>
                     </soapenv:Envelope>';

  dbms_output.put_line('----------request-------------------');
  
  utl_http.set_wallet('file:d:\folder','xxx');
  v_http_request := utl_http.begin_request(url => c_url, method => 'POST', http_version => 'HTTP/1.1');

  utl_http.set_header(v_http_request, 'Connection', 'close'); 
  utl_http.set_header(v_http_request, 'Content-Type', 'text/xml;charset=Windows-1251');
  utl_http.set_header(v_http_request, 'Content-Length', length(v_soap_request));
  utl_http.write_text(v_http_request, v_soap_request);

  dbms_output.put_line('----------response-------------------');

  v_http_response := utl_http.get_response(v_http_request);

  begin
    dbms_lob.createtemporary(lob_loc => v_soap_response, cache => false);

    loop
      utl_http.read_text(v_http_response, v_text_data, v_buffer_size);

      dbms_lob.writeappend(v_soap_response, length(v_text_data), v_text_data);

      dbms_output.put_line(v_text_data);
    end loop;

  exception when utl_http.end_of_body then
    utl_http.end_response(v_http_response);
  end;

  dbms_output.put_line('----------end_response----------------');

  v_result := substr(v_soap_response, instr(v_soap_response, '<soap:Body>'), instr(v_soap_response, '</soap:Body>')-(instr(v_soap_response, '<soap:Body>')-12));

  if v_http_request.private_hndl is not null then
    utl_http.end_request(v_http_request);
  end if;

  if v_http_response.private_hndl is not null then
    utl_http.end_response(v_http_response);
  end if;

  return v_result;
end;

MIME-Version: 1.0
Content-Type: Multipart/Related; boundary=MIME_boundary; type=text/xml;
        start="<claim061400a.xml@claiming-it.com>;"
Content-Description: This is the optional message description.

--MIME_boundary
Content-Type: text/xml; charset=UTF-8
Content-Transfer-Encoding: 8bit
Content-ID: <claim061400a.xml@claiming-it.com>;

<?xml version='1.0' ?>
<SOAP-ENV:Envelope
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
<SOAP-ENV:Body>
..
<theSignedForm href="cid:claim061400a.tiff@claiming-it.com"/>
..
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

--MIME_boundary
Content-Type: image/tiff
Content-Transfer-Encoding: binary
Content-ID: <claim061400a.tiff@claiming-it.com>;

...binary TIFF image...
--MIME_boundary--