$soap->on_fault(
        sub {
            my ( $soap, $res ) = @_;

            if ($res) {
                if ( ref $res ) {
                    die join( '; ', $res->faultcode, $res->faultstring, $res->faultdetail ) . "\n";
                }
                else {
                    die $res;
                }
            }
            else {
                die "Soap Fault: " . $soap->transport->status . "\n";
            }
        } );