#!/usr/bin/perl -l

use strictures 1;
no strict qw/refs subs/;
no warnings qw/uninitialized deprecated/;

use SOAP::Test;
SOAP::Test::run_for('http://192.5.6.30:81');

use SOAP::Lite +autodispatch => 
  'uri' => 'http://192.5.6.30:81',
  'proxy'    => 'http://www.example.com',
  'on_fault' => sub {
    my ( $soap, $res ) = @_;
    print ref $res
      ? print $res->faultdetail
      : print $soap->transport->status;
  };