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";
}


##</code><code>##

use SOAP::Lite +trace => [qw(debug)];

  print SOAP::Lite                                             
    -> uri('/Demo')                                             
    -> proxy('http://localhost:10013/')
    -> OrderInquiry(SOAP::Data->name(vorname=>'physi'))                                                    
    -> result;