#!/usr/bin/perl -w
use SOAP::Lite;
print "Content-Type: text/html\n\n";
my $service = SOAP::Lite
->
service('http://greg.froh.ca/fun/random_bushism/soap/?wsdl');
$result = $service->getRandomBushism();
if (defined($result)) {
print "";
print "\"$result->{'bushism'}\"
";
print "- $result->{'context'}";
print "Perl Source
";
print "";
} else {
print "";
print "Sorry, the request failed.";
print "";
}
print "\n";