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();

use SOAP::Lite +trace => 'debug';

#! perl

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


print header(), start_html();

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


my $return;
my $return1;

my $soap = SOAP::Lite 
->service('http://testserver/soap/Parametertest/Parametertest.asmx?wsdl');

$return = $soap->HelloWorld();
$return1= $soap->Add(5,3),"\n";

print h4("return: $return");
print h5("Rückgabe Wert: $return1");


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