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 ('http://di.webmdhealth.com/SoapService/SoapService.asmx')
 #  -> on_fault(sub{});
   ;
    
$result = $s->PerformUpdate($data);
unless ( $result && ref($result) ) {
   print "Empty on result!\n";
 } elsif ( $result->fault ) {
   print "FAULT: ", $result->faultcode, " ", $result->faultstring, "\n
+\n";
 } else {
   print $result->result;
}
[download]

Unexpected Content-Type 'text/html; charset=Windows-1252' returned
[download]