my @links = $tree->findnodes('//ul[@class="test"]/li/a') ;
for my $link (@links) {
    print $link->attr('href'), "\n";
    print $link->as_text, "\n";
}