IMAP control script

[tsg]

Hi, everyone!

I made a Perl script, which can help to administer a simple mail server, build 
with Postfix+Cyrus SASL+Cyrus IMAP+OpenLDAP.
All information contains in LDAP Directory (users, aliases maps, relocated 
maps ...). The script allows add/delete users and their mailboxes, aliases, 
relocated users. I also enclose my configuration files for all above software 
and start ldif file for LDAP Directory.
Everyone interesting can get it at www.bugalux.com/mailman/
I need any comments and criticism to continue work on it.
Thank You in advance
Sergios