Select Code to Download

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

sub function1
{
...
  $var1=$parameters{var1};
  return($var1);
}