use strict;
use SeedEnv;

use Data::Dumper;

use SAPserver;

my $sap = SAPserver->new();

my $genomes = $sap->all_genomes(-prokaryotic => 1);

foreach my $genome_id (keys %$genomes)
{
    my $genome_name = $genomes->{$genome_id};
    print "$genome_id\t$genome_name\n";
}