#!/usr/bin/perl -w
use SOAP::Lite;
my $soap =  SOAP::Lite  
  -> uri('DocPub')
  -> proxy('http://10.7.2.33:2738/cgi-bin/soap/docpub.pl');

my $t = $soap   
  -> call(new => '')
  -> result;

$t->{name} = "Thomas";
my $r = $soap->hi($t);
print $r->result;