use lib qw(/perl/site/lib);
use Demo;

##</code><code>##

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;

##</code><code>##

use SOAP::Lite;

my $soap = SOAP::Lite
	->uri('http://neo.acymtech.com/Demo')
	->proxy('http://neo.acymtech.com:8080');