# Server system
# This is a test of one Web Service Server
use strict;
use SOAP::Transport::HTTP;
use Demo;

my $port = 8080;
my $host = 'localhost';

SOAP::Transport::HTTP::Daemon
    ->new(LocalAddr => $host, LocalPort => $port, Reuse => 1)
    ->dispatch_with({ 'urn:Demo' => 'Demo' })
    ->objects_by_reference('Demo')
    ->handle;
exit;