use strict;
use SOAP::Transport::HTTP;

my $daemon = SOAP::Transport::HTTP::Daemon
	-> new (LocalPort => 8080)
	-> dispatch_to('/usr/local/apache/soap')
;

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