#!c:/perl/bin/perl.exe -w
 use Apple;
 use SOAP::Transport::HTTP;

my $soap = SOAP::Transport::HTTP::CGI
   ->dispatch_with({ 'http://my.website.com/Apple/foo/getanswer' => 'Apple' })
   ->on_action(sub { join '/foo/', @_; })
   ->dispatch_to('Apple')
   ->handle;