#!/usr/bin/env perl use warnings; use strict; use HTML::TreeBuilder; # use XML::LibXML; use WebSource::Parser; eval { print "Parsing with XML::LibXML\n"; # my $parser = XML::LibXML->new(); my $parser = WebSource::Parser->new; 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 $@ if (@)