or download this
#!/usr/bin/perl -w
use SOAP::Lite +trace => 'debug';
...
SOAP::Data->name("status")->type("xsd:string")->value("0
+815"),
SOAP::Data->name("typ")->type("xsd:string")->value("2"),
SOAP::Data->name("zusatz")->type("xsd:string")->value("h
+inten rechts"))->value);