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