my $data = 
	SOAP::Data->name('data' =>	\SOAP::Data->value(
		SOAP::Data->name('datatypes' => "")->type('string')->uri(''),
		SOAP::Data->name('loginnames' => "$identifier")->type('string')->uri(''),
		SOAP::Data->name('startdate' => "$theDate")->type('string')->uri(''),
		SOAP::Data->name('enddate' => "$theDate")->type('string')->uri(''),
		SOAP::Data->name('vocabularies' => "")->type('string')->uri(''),
		SOAP::Data->name('filters' => "")->type('string')->uri(''),
		SOAP::Data->name('options' => "")->type('string')->uri('') ))->type('SomeObject')->uri('')
	;
		

my $s = SOAP::Lite
-> uri ('http://di.wellmed.com/SoapService')
-> proxy ('https://di.webmdhealth.com/SoapService/SoapService.asmx')
-> on_action(sub{join '/', @_})
-> on_fault(sub{});

	
$result = $s->PerformRequest($data)->result;


##</code><code>##

<PerformRequest xmlns="http://di.wellmed.com/SoapService">
<data xmlns="" xsi:type="namesp1:SomeObject">
<datatypes xmlns="" xsi:type="xsd:string" />
<loginnames xmlns="" xsi:type="xsd:string">291689949|KEVIN D|19610824</loginnames>
<startdate xmlns="" xsi:type="xsd:string">6/15/2006</startdate>
<enddate xmlns="" xsi:type="xsd:string">6/15/2006</enddate>
<vocabularies xmlns="" xsi:type="xsd:string" />
<filters xmlns="" xsi:type="xsd:string" />
<options xmlns="" xsi:type="xsd:string" />
</data>
</PerformRequest>