Simple Perl request

Most users of the TBXDS service receive an example requestor script written in VBScript. However, on non-Microsoft platforms other scripting languages are needed, and Perl is one scripting language available on almost all platforms.

#!/usr/bin/perl -w
use strict;

use LWP;
use HTTP::Request::Common;
use File::Slurp;

my $SAVE_FILE   = 'tbxds-data.xml';
my $URL         = 'http://ws.vwdservices.com/tbxds/tbxds.asp';
my $XML_REQUEST = read_file('tbxds-request.xml');

print "Starting request...\n";
my $ua      = LWP::UserAgent->new();
my $request = POST( $URL,
                    Content_Type => 'text/xml',
                    Content      => $XML_REQUEST,
                  );
my $response = $ua->request($request);
if ( $response->is_success() ){
    write_file($SAVE_FILE, $response->content());
    print "Request completed.\n";
}
else {
    print "An error has occurred\n";
}

Example above submitted by DSM.