use strict;
use warnings;
use SOAP::Lite;

my $soap = SOAP::Lite
-> uri('http://localhost:1111/TestWrapper')
-> proxy('http://localhost:1111/');

my $t1 = $soap->new();
$t1->put('element1', 'value1');

my $t2 = $soap->new();
$t2->put('element1', 'value2')->result;

printf("t1 : %s\n", $t1->get('element1')->result);
printf("t2 : %s\n", $t2->get('element1')->result);