#!/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;