my ($chunk) = $tree->findnodes( 'body//div[@class="header"]');
print $chunk->toString;