#! /usr/bin/perl -w
use strict;
use SOAP::Lite;

my $soap = SOAP::Lite
  -> proxy( 'http://dg.example.org/cgi-bin/soapserver.cgi' )
  -> uri( 'http://dg.example.org/Greeter' )
  -> on_fault( sub { my($soap, $res) = @_; 
         die ref $res ? $res->faultstring : $soap->transport->status, "\n";
     });

my $greeter = $soap->call( new => 'Doug' )->result;
print $soap->formal( $greeter )->result;

__END__