#!/usr/bin/perl --
use strict;
use warnings;

BEGIN {warn scalar gmtime,"\n";}
END {warn scalar gmtime,"\n";}

#~ use SOAP::Lite 0.65 +trace => 'debug';
use SOAP::Lite 0.65
    on_fault => sub {
        my $msg = "ERROR: ";
        my ($soap, $result) = @_;
        $msg .= ref $result
            ? $result->faultstring
            : $soap->transport->status;
        print STDERR "\tFault -> $msg\n";
};



my $soap =
    SOAP::Lite->uri("http://host/")
    ->proxy( 'http://host/blah/DummyService', timeout => 1 );

$soap->call(
    SOAP::Data->name('FooService'),
    SOAP::Data->name('FooVar')->value('$foo')->type('int'),
);