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;

##</code><code>##

my $soap_response = SOAP::Lite->
  uri("http://tako:$port/RecommendServer")->
  proxy("tcp://tako:$port")
  ->similarity_ranked($user);

##</code><code>##

SOAP::Transport::HTTP::Daemon  
  ->new(LocalPort => $port, DEBUG => 1) 
  ->dispatch_to('RecommendServer') 
  ->handle;

##</code><code>##

 my $soap_response = SOAP::Lite->
  uri("http://tako:$port/RecommendServer")->
  proxy("http://tako:$port")->similarity_ranked($user);