use strict;
use HTML::TreeBuilder::XPath;
use Data::Dumper;

my $file_name = qq~/usr/local/apache/htdocs/jspelkey/html5_section.html~;
my $tree = HTML::TreeBuilder::XPath->new; # empty tree
    $tree->parse_file($file_name);

    for my $result ($tree->findnodes(q{/html/body/div[@class="center"]})) {
       my $x = HTML::TreeBuilder::XPath->new;
          $x->parse($result->as_HTML);
          print $x->findvalue(q{/h1});
          print "<br>".("-" x 17)."<br>\n";
    } 
    
    $tree = $tree->delete;