#!/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;

##</code><code>##

$r = $soap->hi($param1,$param2,$param3);

##</code><code>##

my $v = SOAP::Data->type('string')->name(uid => 'Thomas');
my $name = $v->value;

##</code><code>##

sub hi {
        my $self = shift;
        my $e = shift;
        return "Hello $e";
}