#!/usr/local/bin/perl

use strict;
use warnings;

#use SOAP::Lite +trace => ['all', '-transport'];
use SOAP::Lite;

my $soap = SOAP::Lite->new(
    uri         => 'http://DCI/Wordbank::DCI::Server',
    proxy       => 'http://10.1.1.50:8080/Server',
    on_fault    => sub { my($soap, $res) = @_;
                        die ref $res ? $res->faultdetail : $soap->transport->status, "\n";
                       });

print $soap->hello()->result, "\n";