Alias /perl/  /var/www/perl/
<Location /perl>
    SetHandler perl-script
    PerlResponseHandler ModPerl::Registry
    Options +ExecCGI
    Order allow,deny
    Allow from all
</Location>

##</code><code>##

#!/usr/bin/perl

use strict;

local $SIG{__WARN__}=sub{};

use lib '/home/my_user/lib';
use Getopt::Long;

my $DEBUG;
my $result = GetOptions ("d" => \$DEBUG);

if ($DEBUG) {
   eval "use SOAP::Lite +trace => 'debug';";
} else {
   eval "use SOAP::Lite;";
}

print SOAP::Lite
   -> uri("urn:Hello")
   -> proxy('http://my.domain.com/perl/hello.cgi') # mod_perl
#   -> proxy('http://my.domain.com/cgi-bin/hello.cgi') # mod_cgi
   -> hello()
   -> result . "\n";

##</code><code>##

package Hello;
  
sub hello {
   return "hello, world";
}

1;

##</code><code>##

#!/usr/bin/perl

use lib '/home/my_user/lib';

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
    -> dispatch_to('Hello')
    -> handle;

##</code><code>##

SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK<br>
Connection: close<br>
Date: Thu, 30 Sep 2010 22:43:02 GMT<br>
Server: Apache/2.2.3 (Red Hat)<br>
<b>Content-Length: 473</b><br>
<b>Content-Type: text/xml; charset=utf-8<br></b>
Client-Date: Thu, 30 Sep 2010 22:43:02 GMT<br>
Client-Peer: 192.168.32.50:80<br>
Client-Response-Num: 1<br>
SOAPServer: SOAP::Litebrerl/0.712

<?xml version="1.0" encoding="UTF-8"?><br>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"<br> 
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"<br> 
xmlns:xsd="http://www.w3.org/2001/XMLSchema"<br> 
soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" <br>
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><br>
<soap:Body><helloResponse xmlns="urn:Hello"><br>
<s-gensym3 xsi:type="xsd:string">hello, world</s-gensym3><br>
</helloResponse></soap:Body></soap:Envelope><br>
<b>hello, world</b>