#!/usr/bin/env perl
use strict;
use warnings;
use HTML::HTML5::Parser;
use HTML::HTML5::Writer qw(DOCTYPE_XHTML1);
use XML::LibXML::PrettyPrint;
my $parser = 'HTML::HTML5::Parser'->new;
my $writer = 'HTML::HTML5::Writer'->new(markup => 'xhtml', doctype => DOCTYPE_XHTML1);
my $pp = 'XML::LibXML::PrettyPrint'->new_for_html;
print $writer->document(
$pp->pretty_print(
$parser->load_html(IO => \*DATA),
),
);
__DATA__
Some HTML
Here is some HTML