!/usr/bin/perl -w

use Proc::Daemon;
use Proc::PID::File;
use SOAP::Transport::HTTP;

{
    my $port   = 8888;
    my $daemon = SOAP::Transport::HTTP::Daemon
        ->new(LocalPort => 8888, Reuse => 1)
        ->dispatch_to('MY_API::Bridge');

    print $daemon->url, "\n";

    $daemon->handle;
}