$ perl soap.lite.904155.pl
POST http://localhost/blah/DummyService HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
User-Agent: SOAP::Lite/Perl/0.712
Content-Length: 700
Content-Type: text/xml; charset=utf-8
SOAPAction: "#ContactInsertOrUpdate"

<?xml version="1.0" encoding="UTF-8"?>

<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/enc
+oding/" 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/XMLSche
+ma-instance">
  <soap:Body>
    <ContactInsertOrUpdate>
      <ListOfArmAccountContactInterface>
        <ARMAccount>
          <ContactCompanyId xsi:type="xsd:int">1029843</ContactCompany
+Id>
          <ListOfArmContact>
            <ARMContact>
              <ConnectContactId xsi:type="xsd:string">CON12347</Connec
+tContactId>
            </ARMContact>
          </ListOfArmContact>
        </ARMAccount>
      </ListOfArmAccountContactInterface>
    </ContactInsertOrUpdate>
  </soap:Body>
</soap:Envelope>
[download]

#!/usr/bin/perl --

use SOAP::Lite;

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

$soap->transport->add_handler("request_send",  \&pp_dump );
$soap->transport->add_handler("response_done", \&pp_dump );

my $param = SOAP::Data->name(
  "ListOfArmAccountContactInterface" => \SOAP::Data->value(
    SOAP::Data->name(
      "ARMAccount" => \SOAP::Data->value(
        SOAP::Data->name( "ContactCompanyId" => '1029843' ),
        SOAP::Data->name(
          "ListOfArmContact" => \SOAP::Data->value(
            SOAP::Data->name(
              "ARMContact" => \SOAP::Data->value(
#~                 SOAP::Data->name("<ConnectContactId>" => 'CON12347'
+)
                SOAP::Data->name( "ConnectContactId" => 'CON12347' )
              )
            )
          )
        )
      )
    )
  )
);

#~ print pp(
#~     $soap->serializer()->envelope(
#~         method => 'ContactInsertOrUpdate', 
#~         $param
#~     ),
#~ ), "\n\n";

$soap->call(  'ContactInsertOrUpdate',  $param );

sub pp {
    use XML::Twig;
    open my($fh), '>', \my $str;
    no warnings 'newline';
    XML::Twig->new(qw! pretty_print record !)->xparse(@_)->print( $fh 
+);
    return $str;
}
sub pp_dump {
    my $content = $_[0]->content('');
    $_[0]->content( pp($content) );
    print $_[0]->as_string,"\n";
    return;
}

__END__
[download]