declare
  service_              sys.utl_dbws.SERVICE;
  call_                 sys.utl_dbws.CALL;
  service_qname         sys.utl_dbws.QNAME;
  port_qname            sys.utl_dbws.QNAME;
  operation_qname       sys.utl_dbws.QNAME;
  string_type_qname     sys.utl_dbws.QNAME;
  l_namespace           VARCHAR2(1000);
  retx                  sys.xmltype;
  xml_string            sys.xmltype;
  l_str long;
begin
  l_namespace := 'http://xmlme.com/WebServices';
  service_qname := sys.utl_dbws.to_qname(l_namespace, 'Shakespeare');
  service_ := sys.utl_dbws.create_service(HTTPURITYPE('http://www.xmlme.com/WSShakespeare.asmx?WSDL'), service_qname);
  port_qname :=  sys.utl_dbws.to_qname(l_namespace, 'ShakespeareSoap');
  operation_qname := sys.utl_dbws.to_qname(l_namespace, 'GetSpeech');
  call_ := sys.utl_dbws.create_call(service_, port_qname, operation_qname);
  sys.utl_dbws.set_property(call_, 'SOAPACTION_USE', 'TRUE');
  sys.utl_dbws.set_property(call_, 'SOAPACTION_URI', 'http://xmlme.com/WebServices/GetSpeech'); 
  sys.utl_dbws.set_property(call_, 'ENCODINGSTYLE_URI', 'http://schemas.xmlsoap.org/soap/encoding/');
  sys.utl_dbws.set_property(call_, 'OPERATION_STYLE', 'document');
  string_type_qname := sys.utl_dbws.to_qname('http://www.w3.org/2001/XMLSchema', 'string');
  sys.utl_dbws.add_parameter(call_, 'Request', string_type_qname, 'ParameterMode.IN');
  sys.utl_dbws.set_return_type(call_, string_type_qname);
  
  -- navigate to http://www.xmlme.com/WSShakespeare.asmx?op=GetSpeech and see how I came up with this
  -- at first I included <soap:Envelope> stuff and <soap:Body> stuff, but it didn't work
  -- so after some trial and error, I came up with the following 
  xml_string := xmltype('<?xml version="1.0" encoding="utf-8"?>
    <GetSpeech xmlns="http://xmlme.com/WebServices">
      <Request>To be, or not to be</Request>
    </GetSpeech>');
  retx := sys.utl_dbws.invoke(call_Handle => call_
                             ,request     => xml_string);

  l_str := retx.extract('/*').getstringval();
  loop        
    exit when l_str is null;        
    dbms_output.put_line (substr (l_str, 1, instr (l_str, chr(10)) - 1));        
    l_str := substr (l_str, instr (l_str, chr(10)) + 1);     
  end loop;
  sys.utl_dbws.release_service(service_);
end;
/