#!/usr/bin/perl

use strict;
use warnings;
use SOAP::WSDL;
use Data::Dumper;
use Devel::SimpleTrace;

my $soap = SOAP::WSDL->new(
    wsdl => 'file://bar.wsdl',
);
my ($body_ref, $header_ref);
my $result = $soap->call('NewEvent', $body_ref, $header_ref);
print Dumper($result);