#!/usr/bin/perl

use strict;
use SOAP::WSDL +trace => 'all';
use Data::Dumper;

my $ops = 'http://ops.epo.org/wsdl/ops.wsdl';

eval {
my $soap=SOAP::WSDL->new(
   wsdl => $ops,
   );
};

if ($@)
{ print "error: $@\n"; }