use warnings;
use Bio::DB::Taxonomy;
#Rotifera 10190
# Get one from a NCBI taxonomy database
my $dbh = Bio::DB::Taxonomy->new(-source => 'flatfile',
-directory=> "taxdump",
-nodesfile=> "taxdump/nodes.dmp",
-namesfile=> "taxdump/names.dmp");
my $taxon = $dbh->get_taxon(-taxonid => 10190);
my @taxa = $dbh->get_all_Descendents($taxon);
foreach (@taxa) {print $_->id; print "\n";}
