#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Request::Common;

my $userAgent = LWP::UserAgent->new(agent => 'perl post');

my $message = qq^<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
  <SOAP-ENV:Body>
    <tns1:checkVat xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types">
      <tns1:countryCode>IE</tns1:countryCode>
      <tns1:vatNumber>1234567890</tns1:vatNumber>
    </tns1:checkVat>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>^;

my $response = $userAgent->request(POST 'http://ec.europa.eu/taxation_customs/vies/services/checkVatService',
Content_Type => 'text/xml',
Content => $message);

print $response->error_as_HTML unless $response->is_success;

print $response->as_string;