use HTML::Entities;
open (my $fh, '>', 'tt.html') or die "Could not open tt.html, $!";
my $x= qq(<?xml version="1.0" encoding="utf-8" ?>
<Soap-ENV:Envelope>
 <Soap-ENV:Body>
  <CheckTrade>
   <tradeId>49214792</tradeId>
  </CheckTrade>
 </Soap-ENV:Body>
</Soap-ENV:Envelope>
); 
encode_entities($x);
print $fh "<table><tr><td>Message</td><td>$x</td></tr></table>";