Select Code to Download

open FH, ">tt.html" or die "file could not be not created";
my $x= qq(<?xml version="1.0" encoding="utf-8" ?>
...

print FH "<table><tr><td>Message</td><td>$x</td></tr></table>;

________________________
Message   |    49214792
__________|_____________