{
    use esmith::DomainsDB;
    my @domains;
    push @domains, $DomainName if $DomainName;

    my $ddb = esmith::DomainsDB->open_ro or die "Couldn't open DomainsDB\n";
    # original script did not filter type=>domain, but rather /.*domain.*/
    foreach my $domain ( $ddb->get_all() )
    {
       push @domains, $domain->key;
    }
    $OUT = join "\n", @domains;
}
