#!/usr/bin/env perl
use warnings;
use strict;
use HTML::TreeBuilder;
use XML::LibXML;
eval {
print "Parsing with XML::LibXML\n";
my $parser = XML::LibXML->new( recover => 2 );
my $doc = $parser->parse_html_string(<<'EOT');
EOT
print $doc->toString;
};
print $@ if ($@);
eval{
print "\n\nParsing with HTML::TreeBuilder\n";
my $tree = HTML::TreeBuilder->new; # empty tree
$tree->parse(<<'EOT');
EOT
$tree->dump;
};
print $@