use Demo;
  
  use SOAP::Transport::HTTP;

  my $daemon = SOAP::Transport::HTTP::Daemon
    -> new (LocalPort => 9091)
    -> dispatch_to('/perl/site/lib')
  ;
  print "Contact to SOAP server at ", $daemon->url, "\n";
  $daemon->handle;