use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard escapeHTML);
use SOAP::Lite;

print header(), start_html();

print p('SOAP Anfrage...');


my $soap = new SOAP::Lite
-> uri('http://testserver/soap/') 
-> on_action( sub { join '/', 'testserver/soap/', $_[1] } )
-> proxy('http://server-zeit01/soap/Service1.asmx');

print $soap
->HelloWorld()
->result;


print p('SOAP ENDE');
print end_html();