use SOAP::Transport::HTTP;

 my $daemon = SOAP::Transport::HTTP::Daemon
    -> new (LocalPort => 8080, Reuse => 1)

    # register serializer

    -> dispatch_to( qw(Server::Benchmark) )
  ;
  print "Contact to SOAP server at ", $daemon->url, "\n";
  $daemon->handle;

package Server::Benchmark;

sub ping {
 print "-";
 return time;
}