# client
use warnings;
use strict;

use SOAP::Lite;
my $soap = SOAP::Lite
  ->uri("tcp://localhost/Foo")
  ->proxy("tcp://localhost:2323")
;

my $res = $soap->bar();
if ($res->fault) {
  print "What we have here is a failure to communicate...\n";
  print $res->faultstring;
} else {
  print $res->result;
}
__END__