#!/usr/bin/perl -w
use strict;

use ERDB;

my $erdb = ERDB::GetDatabase('Sprout');

my $qh = $erdb->Get('Genome', 'Genome(complete) = 1', []);

while (my $genome = $qh->Fetch()) {
    my ($id, $name) = $genome->Values(['id', 'scientific-name']);
    print "$id\t$name\n";
}