The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

# the same in SOAP lite (second call) #

use SOAP::Lite;

my $lite = SOAP::Lite->new()->on_action(sub { join '/', @_ } ) ->proxy('http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx');

$lite->call( SOAP::Data->name('GetSpecificCookie') ->attr({ 'xmlns', 'http://www.fullerdata.com/FortuneCookie/FortuneCookie.asmx' }), SOAP::Data->name('index')->value(23) );

die $soap->message() if ($soap->fault()); print $soap->result();