my $soap = SOAP::Lite
   ->uri('World')
   ->proxy('http://localhost/soap/soapserver.cgi')
   ->on_debug(sub{warn @_});
$som = $soap ->GoodBye("Bad world");
if ( $som->fault ) {
   warn $som->faultcode() ||'', " : ", $som->faultstring()||'',
      " : ",$som->faultdetail()||'',"\n";
} else {
   print $som->result();
}