Help for this page

Select Code to Download

Select or download this

   use SOAP::Transport::TCP;
   my $daemon = SOAP::Transport::TCP::Server->new(LocalAddr => '192.16
+8.1.15', LocalPort => 4200, Listen => 5, Reuse => 1);
   $daemon->dispatch_to('Hello');
...
     shift;
     return "Hello " . shift;
   }