$VAR1 = {
   'hostname' => 'host123'
   'disk' => '500'
   'cpu' => '4'
   'memory' => '16'
};

##</code><code>##

$VAR1 = {
  'memory' => '16'
};

##</code><code>##

use warnings;
use strict;

my $serverhost = 'myserver.net';
my $serverport = '38383';

my $wsdl_filename = 'my.wsdl';

use XML::Compile::SOAP::Daemon::NetServer;
use XML::Compile::WSDL11;
use XML::Compile::SOAP11;
use XML::Compile::Util    qw/pack_type/;

sub sendData($$$);

my $daemon = XML::Compile::SOAP::Daemon::NetServer->new();
my $wsdl = XML::Compile::WSDL11->new($wsdl_filename);
my %callbacks = ( sendData => \&sendData );
$daemon->operationsFromWSDL( $wsdl, callbacks => \%callbacks );
$daemon->setWsdlResponse($wsdl_filename);
print "Starting daemon PID=$$ on $serverhost:$serverport\n";

$daemon->run
    (
    name    => 'NamesService',
    host    => $serverhost,
    port    => $serverport,

    # Net::Server::PreFork parameters
    min_servers => 1,
    max_servers => 1,
    min_spare_servers => 0,
    max_spare_servers => 0
    );

sub sendData($$$)
{
        my ($server, $in, $request) = @_;
        trace join '', 'sendData', Dumper $in;

        if( open OUT, '>', '/tmp/data.txt' )
        {
                print OUT Dumper $in;
                print OUT Dumper $request;
                close OUT;
        }

        # 'return' hash matched to message part response in WSDL
        return +{ Return => "OK" };

}

##</code><code>##

        <message name="sendData">
                <part name="hostname" element="xsd:string"/>
                <part name="disk" element="xsd:string"/>
                <part name="cpu" element="xsd:string"/>
                <part name="memory" element="xsd:string"/>
        </message>

##</code><code>##

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xs="http://www.w3.org/2001/XMLSchema">
   <soapenv:Header/>
   <soapenv:Body>
      <xs:string>host123</xs:string>
      <xs:string>500</xs:string>
      <xs:string>4</xs:string>
      <xs:string>16</xs:string>
   </soapenv:Body>
</soapenv:Envelope>

##</code><code>##

$VAR1 = {
   'hostname' => 'host123'
   'disk' => '500'
   'cpu' => '4'
   'memory' => '16'
};

##</code><code>##

$VAR1 = {
  'memory' => '16'
};

##</code><code>##

$VAR1 = bless( {
  '_protocol' => 'HTTP/1.1',
  '_content' => '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xs="http://www.w3.org/2001/XMLSchema">
   <soapenv:Header/>
   <soapenv:Body>
      <xs:string>host123</xs:string>
      <xs:string>500</xs:string>
      <xs:string>4</xs:string>
      <xs:string>16</xs:string>
   </soapenv:Body>
</soapenv:Envelope>',
..
..
..