my $tidy = HTML::Tidy->new({
   tidy_mark => 1,
   output_xhtml => 1, # yes
   add_xml_decl => 0, # no
   wrap   => 76,
});