use SOAP::Lite +trace;
my $s = SOAP::Lite
   -> uri('https://www.webmdhealth.com/SoapService/SoapService')
   ->proxy('https://stagingdi.webmdhealth.com/SoapService/SoapService.asmx')
   -> on_action(sub{sprintf '%s', @_ });

my $data = SOAP::Data->name('data' => '<some XML data>')->type('string')->uri('https://www.webmdhealth.com/SoapService/SoapService');
$result = $s->PerformUpdate($data)->result;