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

##</code><code>##

cannot import document from namespace >http://tempuri.org/< without base uri. Use >parse_uri< or >set_uri< to set one. at /usr/local/lib/perl5/site_perl/5.10.1/SOAP/WSDL/Expat/WSDLParser.pm line 96.
 at line 1 at /usr/local/lib/perl5/site_perl/5.10.1/SOAP/WSDL/Expat/Base.pm line 82