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;

##</code><code>##

  use SOAP::Lite;
  print SOAP::Lite
    -> uri('http://localhost/')
    -> proxy('http://localhost::9091')
    -> hi()
    -> result;