#!/usr/bin/perl --

use strict;
use warnings;

use SOAP::Lite;
use SOAP::Lite 0.65 +trace => 'debug';



my $soap = SOAP::Lite->proxy( 'http://localhost/blah/DummyService' );

my $serializer = $soap->serializer();

print $serializer->envelope(
  method => 'updatePLZInformationen',  

  SOAP::Data->type("xsd:string")->name( "clientid"    => "test" ),
  SOAP::Data->type("xsd:string")->name( "securitytoken" => "test" ),
  SOAP::Data->type("tns2:PLZInfo")->name("plzinfos")->value(
    \SOAP::Data->value(
    SOAP::Data->name("kurzname")->type("xsd:string")->value("gargel"),
    SOAP::Data->name("plz")->type("xsd:string")->value("12345"),
    SOAP::Data->name("stadt")->type("xsd:string")->value("Musterstadt"),
    SOAP::Data->name("status")->type("xsd:string")->value("0815"),
    SOAP::Data->name("typ")->type("xsd:string")->value("2"),
    SOAP::Data->name("zusatz")->type("xsd:string")->value("hinten rechts")
    )
  )
);


__END__
perl soap.lite.729686.pl | xml_pp
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <soap:Body>
    <updatePLZInformationen>
      <clientid xsi:type="xsd:string">test</clientid>
      <securitytoken xsi:type="xsd:string">test</securitytoken>
      <plzinfos xsi:type="tns2:PLZInfo">
        <kurzname xsi:type="xsd:string">gargel</kurzname>
        <plz xsi:type="xsd:string">12345</plz>
        <stadt xsi:type="xsd:string">Musterstadt</stadt>
        <status xsi:type="xsd:string">0815</status>
        <typ xsi:type="xsd:string">2</typ>
        <zusatz xsi:type="xsd:string">hinten rechts</zusatz>
      </plzinfos>
    </updatePLZInformationen>
  </soap:Body>
</soap:Envelope>