#!C:\Perl\bin -w
print "Content-type:text/html\n\n";
use strict;
use warnings;
use lib "C:/Perl/site/bin/ensembl/modules";
use lib "C:/Perl/cpan/Bundle/DBD";
use lib "C:/Perl/site/bin/ensembl/modules/Bio/EnsEMBL";
use Bio::EnsEMBL::Registry;

my $registry = 'Bio::EnsEMBL::Registry';

$registry->load_registry_from_db(
    -host => 'ensembldb.ensembl.org',
    -user => 'anonymous'
);

my @db_adaptors = @{ $registry->get_all_DBAdaptors() };

foreach my $db_adaptor (@db_adaptors) {
    my $db_connection = $db_adaptor->dbc();

    printf(
        "species/group\t%s/%s\ndatabase\t%s\nhost:port\t%s:%s\n\n",
        $db_adaptor->species(),   $db_adaptor->group(),
        $db_connection->dbname(), $db_connection->host(),
        $db_connection->port()
    );
}