#!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);