Select Code to Download

#!perl -w
use SOAP::Transport::HTTP;
...
}

1;

use strict;
use warnings;
...

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

$ perl client.pl 
t1 : value2
t2 : value2

use TestWrapper;

...

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

$ perl standalone.pl 
t1 : value1
t2 : value2