print "<TABLE><TR><TD>", 
       join "</TD><TD>",@{$hash{HEADER}};
print "</TD></TR><TR><TD>, 
       join "</TD><TD>",@{$hash{CONTENT}};
print "</TD></TR></TABLE>";