#!perl -w

# -- SOAP::Lite -- guide.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

use SOAP::Transport::HTTP;   

use Demo;

# don't want to die on 'Broken pipe' or Ctrl-C
$SIG{PIPE} = $SIG{INT} = 'IGNORE'; 

my $daemon = SOAP::Transport::HTTP::CGI
  -> new (LocalPort => 80)
  -> dispatch_to('/home/soaplite/modules')
;                 

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