#!/usr/bin/perl -w

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
    -> dispatch_to('Demo')
    -> handle;

package Demo;
sub hi {return "hello, world";}
sub bye {return "goodbye, cruel world";}

use strict;
use SOAP::Lite;

my $url = 'Pfad zur CGI Datei';

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

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;

use CGI::Carp qw(fatalsToBrowser); 

Content-type: text/html

<h1>Software error:</h1>
<pre>500 Internal Server Error at soap-client.pl line 7
</pre>
<p>
For help, please send mail to this site's webmaster, giving this error message 
and the time and date of the error.

</p>

my $soap = SOAP::Lite->uri('urn:Demo')->proxy($url)->readable(1)->hi()->result;