Select Code to Download

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

...
print $soap_resp->result;

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

#!/usr/bin/perl -w                                                    
+        
use strict;
...
     SOAP::Transport::HTTP::CGI->dispatch_to('WebServiceFunctions')->h
+andle;

1;