sub mkgrp{

  my $ldapgrp = Net::LDAP::Entry->new;
    my $group_dn = 'cn='.$group.',ou=group,'.$topdn;
    my $description = $descr || $group;
    $ldapgrp->dn($group_dn);
    $ldapgrp->add(
        objectClass    => [ qw(sambaGroupMapping
            posixGroup
            )],
        displayName    => $group,
        sambaGroupType => '2',
        sambaSID       => 'S--blablabla-'.${groupSID},
        description    => $description,
        gidNumber      => $gid,
        cn             => $group,
        memberUID      => [ @memberUID ],
    );
    return $ldapgrp;
}

 my $ldif = Net::LDAP::LDIF->new( "$ldifpath", "w+", onerror => 'warn' );
 $ldifpath = "/tmp/${group}.ldif";
 $ldif->write_entry($ldapgrp);

##</code><code>##

    print $fh <<"END";
dn: $dn
changetype: modify
add: mail
mail: $maillist
-
add: mailAlternateAddress
mailAlternateAddress: 
-
add: mailMessageStore
mailMessageStore: 
-
replace: objectClass
objectClass: posixGroup
objectClass: qmailGroup
objectClass: sambaGroupMapping
END