Select Code to Download

Select or download this

#!/usr/bin/perl -w

use strict;
...
my $action = 'http://www.booksforeducation.com/testbed/fred.php';
my $form = {xml => $last};
my $response = $ua->post($action, $form);</b>

Select or download this

my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => 'http://wsqa.nielsenbookdatao
+nline.com/webservices/services/BDOLWebService?wsdl');
$request->header(SOAPAction => '"http://babel.webservices.book.nielsen
+.com/xsd"');
...
if($response->code == 200) {
    my $last="";
$last = $response->as_string;