Server:

#! /usr/bin/perl
use strict;
use SOAP::Transport::HTTP;
use lib '/var/www/cgi-bin/soap_modules';
                                                                                
use Greeter;
SOAP::Transport::HTTP::CGI
  -> dispatch_to(  '/var/www/cgi-bin/soap_modules','Greeter')
  -> handle;

Client:
#! /usr/bin/perl -w
use strict;
                                                                                
use SOAP::Lite +autodispatch =>
  proxy =>  'http://localhost/cgi-bin/soaptest.cgi',
  uri =>  'http://localhost/Greeter' ,
  on_fault => sub { my($soap, $res) = @_;
         die ref $res ? $res->faultstring : $soap->transport->status, "\n";
     };
                                                                                
my $greeter = Greeter->new('Doug');
print $greeter->formal();