use warnings;
use strict;

use SOAP::WSDL;
use Data::Dumper;

my $soap = SOAP::WSDL->new(
    wsdl => 'http://bar.foo.com/EventServices.svc?wsdl',
  );

my $result = $soap->call('NewEvent', %data);
my ($body_ref,$header_ref);
print Dumper($result);