#!/usr/bin/perl -wuse strict; 
use LWP::UserAgent; 
use HTTP::Request::Common; 
use SOAP::Lite; 
use XML::Simple; 
use Data::Dumper; 
use CGI::Carp qw/fatalsToBrowser/; 
##use warnings; 
# create object 
my $xml = new XML::Simple;my $fieldsearch = 1; 
my $fieldvalue = "9781416025405"; 
##my ($fieldsearch, $fieldvalue) = @ARGV;##print $fieldsearch,  q{ -> }, $fieldvalue; 
 if ($fieldsearch eq "zero") {$fieldsearch =0;}my $message = "<?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsd='http://babel.webservices.book.nielsen.com/xsd'><soapenv:Header/><soapenv:Body><xsd:getSearchService><xsd:param0><xsd:clientId>0</xsd:clientId><!--Optional:--><xsd:currency>GBP</xsd:currency><xsd:format>7</xsd:format><xsd:from>0</xsd:from><xsd:indexType>3</xsd:indexType><!--Optional:--><xsd:marketSegment>UK</xsd:marketSegment><!--1 or more repetitions:--><xsd:params><!--Optional:--><xsd:fieldLogic><xsd:fieldLogic>0</xsd:fieldLogic></xsd:fieldLogic><xsd:fieldSearch>";              my $FS = "</xsd:fieldSearch><xsd:fieldValue>";               my $FV = "</xsd:fieldValue></xsd:params><xsd:password>0</xsd:password><xsd:requestId>TestSearch</xsd:requestId> <xsd:resultView>1</xsd:resultView><!--1 or more repetitions:--><xsd:sortField><xsd:sortField>1</xsd:sortField><xsd:sortOrder>1</xsd:sortOrder></xsd:sortField><!--Optional:--><xsd:territory>UK</xsd:territory><xsd:to>20</xsd:to></xsd:param0></xsd:getSearchService></soapenv:Body></soapenv:Envelope>"; 
my $sendit= $message.$fieldsearch.$FS.$fieldvalue.$FV;my $userAgent = LWP::UserAgent->new(); 
my $request = HTTP::Request->new(POST => 'http://ws.nielsenbookdataonline.com/webservices/services/BDOLWebService?wsdl'); 
$request->header(SOAPAction => '"http://babel.webservices.book.nielsen.com/xsd"'); 
$request->content($sendit); 
$request->content_type("text/xml; charset=utf-8"); 
my $response = $userAgent->request($request);print "Content-Type: xml; charset=utf-8"; 
my $stuff = $response->as_string; 
# read XML file 
#my $data = $xml->XMLin($response);   uncommenting this makes the script dieif($response->code == 200) { 
# print output 
  print $response->as_string; 
  #print Dumper($data);} 
else { 
    print $response->error_as_HTML; 
}