This isn't a "complete example". I finally decided to call it quits for the day and head for the aspirin:-). Maybe this will help.

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use SOAP::Lite;
use SOAP::WSDL;
use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;

BEGIN { warn "Started...\n" }

my $soap =
  SOAP::WSDL->new( wsdl => 
      'http://contentcafe2.btol.com/ContentCafe/InventoryAvailability.
+asmx?WSDL'
  );
$soap->wsdlinit(
    caching         => 1,
    cache_directory => '/tmp'
);
$soap->servicename('InventoryAvailability');
$soap->portname('InventoryAvailabilitySoap');

my $som = $soap->call('CheckInventory');

warn "Loaded...\n";
print Dumper($som);
[download]