##

#!perl

use SOAP::Lite;# +trace;
use Data::Dumper;

use strict;

my @foo = ('Event01', 'USER', 'pass');

my $soap= SOAP::Lite
  -> service('http://www.theClient.com/service.asmx?WSDL')
  -> companyData( \@foo );


# print $soap->response;

print Dumper($soap);

##

##

POST /service.asmx HTTP/1.1
Host: www.theClient.com
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://www.theClient.info/Service/companyData"



  
    
      string
      string
      string