{
    foreach ($a->groups)
    {
	my $key = $_->key;
	my $desc = $_->prop('Description');

	$OUT .= "\n";
	$OUT .= "dn: uid=$key,$ldapBase\n";
	$OUT .= "objectClass: group\n";
	$OUT .= "mail: $key\@$DomainName\n";
	$OUT .= utf8("cn: $desc\n") if $desc;
    }
}
