sub alias_add_entry {
        my $self = shift;
        my $alias = shift;
        my $user = shift;
        my $result;

        die "Not enough args to alias_add_entry() $@" if not defined ($alias and $user);

        $result = $self{"_ldap"}->modify (
                dn => "cn=$alias,ou=Aliases,dc=mydomain,dc=com",
                add => { rfc822mailmember => $user }
                );
        return $result;
}