use SOAP::Lite;
  use SOAP::Transport::HTTP;

  $SIG{PIPE} = 'IGNORE';

  $daemon = SOAP::Transport::HTTP::Daemon
    -> new (LocalPort => 8001, LocalAddr => 'localhost', listen => 5)
    -> dispatch_to(qw(demo));

  print "Contact to SOAP server at ", $daemon->url, "\n";
  $daemon->handle;