use warnings; use strict; use SOAP::Lite; my $sObj = SOAP::Lite->new(uri => $NAME_SPACE, proxy => $END_POINT); my $rObj; eval { $rObj = $sObj->fooBar('here','there'); ### line 29 }; if (not defined($rObj) or $@) { warn($sObj->transport->http_response->content()); ### line 34 warn("? $0: $@"); warn("? $0: ", $sObj->transport->status(), "\n_ "); ### line 36 warn("? $0: ", $sObj->faultstring(), "\n_ "); ### line 37 }