Select Code to Download

my $s = SOAP::Lite
   ->uri('World')
   ->proxy('http://localhost/soap/soapserver.cgi')
...
   ->on_debug(sub{print@_});
# ^^^^^^^^^^^^^^^^^^^^^^^^^^
print $s->result();

my $soap = SOAP::Lite
   ->uri('World')
   ->proxy('http://localhost/soap/soapserver.cgi')
...
} else {
   print $som->result();
}