use SOAP::Transport::TCP;
   my $daemon = SOAP::Transport::TCP::Server->new(LocalAddr => '192.168.1.15', LocalPort => 4200, Listen => 5, Reuse => 1);
   $daemon->dispatch_to('Hello');
   print "SOAP TCP server listening...\n";
   print "   Host: ", $daemon->sockhost, "\n";
   print "   Port: ", $daemon->sockport, "\n";
   $daemon->handle();

   package Hello;
   sub hello {
     shift;
     return "Hello " . shift;
   }