while($entry = $tree->info("next", $entry)) {
   print "$entry\n";
}