My first Perl script to use Soap. On the way I discovered that the FTP client built into IE uses binary mode for transfers, so edit your files in an editor that can use Unix format, like PFE, or use a better FTP client.

#!/usr/bin/perl



use CGI qw(:standard);

use Data::Dumper;



use SOAP::Lite;

use SOAP::Lite +autodispatch =>

uri   => 'http://www.allconsuming.net/AllConsumingAPI',

proxy => 'http://www.allconsuming.net/soap.cgi',

on_fault => sub {

my($soap, $res) = @_;

die ref $res ? $res->faultstring : $soap->transport->status, "\n";

};



$AllConsumingObject = AllConsumingAPI->new('12','20','12','2004');



$tmpl_var = $AllConsumingObject->GetCurrentlyReadingList('paulm');



print "Content-type: text/html\n\n";

print Dumper($tmpl_var);