I stopped using SOAP::Lite when my ISP totally broke my localhost. How they managed to do that is beyond me, but I thought that I'd give it another try. Here's the server:

#!/usr/bin/perl

use strict;
use warnings;
use SOAP::Transport::HTTP;

my $daemon = SOAP::Transport::HTTP::Daemon->new(
    'LocalAddr' => 192.5.6.30,
    'LocalPort' => 81,
    'Reuse'     => 1,
    'Listen'    => 128
  )->objects_by_reference(
    qw(
      My::Stuff)
  )->dispatch_to( '/Your/Path/To/Deployed/Modules',
    'Module::Name', 'Module::method' )
  ->options( { compress_threshold => 10000 } 
);
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;
[download]

Here's the client:

#!/usr/bin/perl -l

use strictures 1;
no strict qw/refs subs/;
no warnings qw/uninitialized deprecated/;

use SOAP::Test;
SOAP::Test::run_for('http://192.5.6.30:81');

use SOAP::Lite +autodispatch => 
  'uri' => 'http://192.5.6.30:81',
  'proxy'    => 'http://www.example.com',
  'on_fault' => sub {
    my ( $soap, $res ) = @_;
    print ref $res
      ? print $res->faultdetail
      : print $soap->transport->status;
  };
[download]

It returns "200 OK, 1". I hope that it works for you:).