use SOAP::Lite +trace=>'all'; #removing tracing later

my $soap_resp = SOAP::Lite->uri('http://localhost/WebServiceFunctions')->proxy('http://localhost/cgi-bin/soap-cooltest.pl')->Hello('world');

print $soap_resp->result;

if ($soap_resp->fault){print $soap_resp->faultstring}

##</code><code>##

#!/usr/bin/perl -w                                                            
use strict;
use WebServiceFunctions;

print "Content-type: application/soap\n";
     use SOAP::Transport::HTTP;
     SOAP::Transport::HTTP::CGI->dispatch_to('WebServiceFunctions')->handle;

1;