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