#!perl

use Data::Dumper;
use SOAP::Lite;

my $soap =  SOAP::Lite
    -> uri('http://www.theClient.info/Service')
    -> on_action( sub { join '/', 'http://www.theClien.info/Service', 
+$_[1] } )
    -> proxy('http://www.theClien.com/Service.asmx')
    -> autotype(0);


my $method = SOAP::Data->name('companyData')->attr( {xmlns=>"http://ww
+w.theClien.info/Service"} );

my $eventCode = SOAP::Data->name('eventCode' => 'EVENT01');
my $userName  = SOAP::Data->name('userName' => 'USER');
my $password  = SOAP::Data->name('password' => 'PASS');

my $som = $soap->call($method =>
 (
    SOAP::Data->name('eventCode' => $eventCode),
    SOAP::Data->name('userName'  => $userName),
    SOAP::Data->name('password'  => $password)
  ));
[download]