use SOAP::Transport::HTTP;
my $server = SOAP::Transport::HTTP::Daemon
->new(LocalAddr => '192.168.0.1', LocalPort => 666)
->objects_by_reference('MyMod')
->dispatch_with(
  {'http://192.168.0.1/MyMod' => 'MyMod'},
);
$server->handle;

##</code><code>##

use SOAP::Lite
# trace => [ all, -transport ],
  dispatch_from => 'MyMod',
  uri => 'http://192.168.0.1/MyMod',
  proxy => ['http://192.168.0.1:666', timeout => 6000]
;