#!/usr/bin/perl -w
use strict;
use SOAP::Lite;

print "Content-Type: text/html\n\n";

my $ws=new SOAP::Lite
service => 'file:c:/pfad/zu/wsdl/ws.wsdl',
proxy => 'http://irgendwas.de:80';

my $method=SOAP::Data->name('mymethod');

my @params=(
SOAP::Data->name('p1'=>'1'),
SOAP::Data->name('p2'=>'2')
);

my $response=$ws->call($method => @params);

if ($response->fault) {
printf "A fault (%s) occurred: %s\n",
$response->faultcode, $response->faultstring;
} else {
print "result:" . $response->result . "\n";
}