use XML::Generator qw( );
my $gen = XML::Generator->new(
   conformance => 'strict',
   encoding    => 'UTF-8',
   dtd         => [ 'html', 'PUBLIC', $xhtml_w3c, $xhtml_dtd ],
);
print $gen->xml(
   $gen->html('...')
);