Select Code to Download

use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
...

print "@headers\n";

 
my @headers = $tree->findvalues( q{

...
)[1]
        //td[ @class = 'HeaderTitle' ]
} );