# file named 'libxml-html-forgiving'
use warnings;
use strict;
use XML::LibXML;

my $corpus = join "", <DATA>;

my $parser = XML::LibXML->new();

# give command line an argument to hide errors
@ARGV ? $parser->recover_silently(1) : $parser->recover(1);

my $doc = $parser->parse_html_string($corpus);

print "-" x 60, "\n";
print "parse_html rendered with serialize_html\n";
print "-" x 60, "\n";

print $doc->serialize_html();

print "-" x 60, "\n";
print "parse rendered with serialize_html\n";
print "-" x 60, "\n";

my $doc2 = $parser->parse_string($corpus);
print $doc2->serialize_html();

__END__
<p>
Some HTML & a <b>problem with it > normal but deadly;
<p>