#!/usr/bin/perl -w
use SOAP::Lite +trace => 'debug';
my $plz = SOAP::Lite
    -> service('file:/home/orca/oracle/DataSyncTool/config/SKADataService.wsdl');
 
$plz->updatePLZInformationen(SOAP::Data->type("xsd:string")->name("clientid" => "test")->value,
        SOAP::Data->type("xsd:string")->name("securitytoken" => "test")->value,
        SOAP::Data->type("tns2:PLZInfo")->name("plzinfos")->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"))->value);