my $daemon = SOAP::Transport::HTTP::Daemon
  -> new (LocalPort => 8088, Reuse => 1)
  -> on_action(sub {})
  -> dispatch_to('ServiceError');

print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;

sub ServiceError {
print "ServiceError\n";
  return SOAP::Data->name('ResponseType')->value('ACKNOWLEDGE');
}

##</code><code>##

<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
   <soap:Body>
      <ServiceErrorResponse xmlns="http://DataModel_v4.xxxxxxxxx.com">
         <ResponseType xsi:type="xsd:string">ACKNOWLEDGE</ResponseType>
      </ServiceErrorResponse>
   </soap:Body>
</soap:Envelope>

##</code><code>##

<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:so
+apenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/
+envelope/">
   <soapenv:Body>
      <ResponseType>ACKNOWLEDGE</ResponseType>
   </soapenv:Body>
</soapenv:Envelope>