Hi There ##

##

sub Test1 {
    my $self = shift;
    my $envelope = pop;
    my $indata = $envelope->valueof('/Envelope/Body/*/InData');
    my $d= (
	    SOAP::Data
	    ->name(
		   'OutData' => \SOAP::Data
		   ->value(
			   SOAP::Data->name('MyStringType' => 'Hi There')
			  )
		  )
	    ->attr({
		    'xmlns:typens' => 'urn:TESTServices',
		    'xsi:type'     => 'typens:MyStringType',
		   },
		  )
	   );
    return $d;
}