use SOAP::Transport::HTTP;

my $daemon = SOAP::Transport::HTTP::Daemon
	-> new (LocalPort => 8123, Reuse => 1)
    -> dispatch_to('/home/rob/www.intelcompute.com/site/cgi-bin', 'SOAPServer');

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

$daemon->handle;