
use Bio::DB::Taxonomy;

my $db = Bio::DB::Taxonomy->new();
my @taxonids = $db->get_taxonids('Homo sapiens');
print @taxonids;
