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