#!/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.asmx',
    on_fault => sub {
        my ( $soap, $res ) = @_;
        die ref $res
            ? $res->faultdetail
            : $soap->transport->status;
};

isAlive( $isbn );
print SOAP::Lite->self->call->result;