use XML::Simple;
use SOAP::Lite +trace; 


my $data = SOAP::Data->name('data' => "$xml")->type('string')->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->PerformUpdate($data)->result;