use SOAP::Transport::HTTP;
my $daemon = SOAP::Transport::HTTP::Daemon
  -> new (LocalPort => 10013, Reuse => 1)
  -> dispatch_to('Demo');

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

package Demo;
use Data::Dumper;

sub OrderInquiry {
	print "OrderInquiry called\n";
	my $self = shift;
	
	my %hash = @_;
	print Dumper \%hash;
	return "OrderInquiry order Created";
}