#!/usr/bin/perl --
use strict;
use warnings;
use LWP::Simple qw' mirror ';
use SOAP::Simple;
use Data::Dumper;

my $wsdlUrl = 'http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl';
my $wsdlFile = 'checkVatService.wsdl';
mirror( $wsdlUrl, $wsdlFile );

my $soap = SOAP::Simple->new( $wsdlFile );
my ($answer, $trace) = $soap->checkVat(
    countryCode => "IE",
    vatNumber => "1234567890",
);
print Dumper( $answer ),"\n";
$trace->printRequest;
$trace->printResponse;
__END__