Select Code to Download

#!c:/perl/bin/perl.exe -w
 use Apple;
...
   ->on_action(sub { join '/foo/', @_; })
   ->dispatch_to('Apple')
   ->handle;

#!c:/perl/bin/perl.exe
package Apple;
...
  return('Original soap message: '.$soap);
 }
 1;

use strict;
use SOAP::Lite +trace => 'debug';
...
 die $som->faultstring if ($som->fault);
 my $res = $som->result;
 print "The response from the server was:\n".$res."\n";

 $soap_req =~ s/</&lt;/g;

...
                                 =>SOAP::Data->name('soap')
                                             ->type('xsd:string'=> $so
+ap_req)
                       );