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;