$data1=SOAP::Data->name('var1')->value($value)->type('string');
$response=SOAP::Lite
     ->uri($uri)
     ->proxy($proxy)
     ->function1($data1);

##</code><code>##

sub function1
{
  %parameters=@_;
  $var1=$parameters{var1};
  return($var1);
}