SOAP return: use strict; use Data::Dumper; use SOAP::Lite + "trace"; my $soap = SOAP::Lite -> uri('http://www.perlmonks.org/FileQueue') -> proxy('http://localhost:88') ; my $rslt = $soap->getServerInfo()->result; #### 0.1.dev txt txt 0 #### use strict; use SOAP::Lite + "trace"; use SOAP::Transport::HTTP; use Data::Dumper; my $serverinfo = { version => "0.1.dev", validTypes => { filetype => "txt", filetype => "html", }, statistics => { documentsProcessed => 0, }, }; sub FileQueue::getServerInfo { return $serverinfo; } my $daemon = SOAP::Transport::HTTP::Daemon -> new (LocalPort => 88) -> dispatch_to('FileQueue') ; print "Contact to SOAP server at ", $daemon->url, "\n"; $daemon->handle; #### 0 0.1.dev html