my $daemon = SOAP::Transport::TCP::Server
  -> new(LocalAddr => 'localhost', LocalPort => $port, Listen => 5,
  Reuse => 1)->dispatch_to('RecommendServer');
print "Contact to SOAP server at " . join(':', $daemon->sockhost,
  $daemon->sockport) . $/;
$daemon->handle;