http://www.perlmonks.org?node_id=1084562


in reply to SOAP::LITE client help

In general, I would try something along these lines; also, you'll need warnings::everywhere.
#!/usr/bin/perl -l use strict; no warnings::anywhere qw(deprecated); use warnings qw(deprecated); my $isbn = shift @ARGV; use SOAP::Lite +autodispatch => uri => 'http://www.designa.de/', proxy => 'http://192.168.1.100/AbacusWebService/ServiceCashPoint.a +smx', on_fault => sub { my ( $soap, $res ) = @_; die ref $res ? $res->faultdetail : $soap->transport->status; }; isAlive( $isbn ); print SOAP::Lite->self->call->result;
Update: fixed typo - should be a comma at end of line 11.