use strict;
use warnings;
use SOAP::Lite;
use HTTP::Headers;

my $url = 'http://my.example.com/soap/serv.pl'; # SOAP-Serverskript

my $http = new HTTP::Headers;

my $soap = SOAP::Lite
->uri('urn:Demo')    # Package
->proxy($url)    #CGI-Datei
->readable(1)
->hi()    # auszufühende Methode
->result;    # führe aus;

$http->header (Content_type => 'text/plain');
print $http->as_string, "\n", $soap;