use SOAP::Transport::HTTP;

my $daemon = SOAP::Transport::HTTP::Daemon
        -> new (LocalAddr => 'localhost', LocalPort => 82, Listen => 5, Reuse => 1)
        -> dispatch_to('C:\\WINDOWS') 
  ;
  print "Contact to SOAP server at ", join(':', $daemon->sockhost, $daemon->sockport), "\n";
  $daemon->handle;