{
    use esmith::AccountsDB;

    $OUT = "";

    my $a = esmith::AccountsDB->open_ro();

    foreach my $list ($a->get_all_by_prop(type=>'minilist')){
        my $key = $list->key;
        if ($key =~ /\@/){
            $OUT .= "$key\n";
        }
        else{
            $OUT .= "$key\@$_\n" for (@domains);
        }
    }
}
