use SOAP::Transport::HTTP;
my $daemon = SOAP::Transport::HTTP::Daemon
    -> new (LocalPort => 2112,  
            Reuse => 1)
    -> dispatch_to('Demo');
$daemon->handle;