1#!perl -w 2#!d:\perl\bin\perl.exe 3 4# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- 5 6use strict; 7use SOAP::Lite; 8use Text::Wrap; 9 10my $res = SOAP::Lite 11 -> uri('urn:vgx-joke') 12 -> proxy('http://services.xmltoday.com/vx_engine/soap-trigger.pperl') 13 -> JokeOfTheDay 14; 15 16die $res->faultstring if $res->fault; 17 18printf "%s [%s]\n", $res->result->{title}, $res->result->{score}; 19print wrap("\t", '', split( /\n/, $res->result->{text})), "\n"; 20