[plankton@mail1 SETUPIMAP]$ cat mbcreate
connect mail1
cm user.userA
cm user.userB
...
[plankton@mail1 SETUPIMAP]$ perl -MCyrus::IMAP::Shell -e 'run("mbcreate")'
cyradm> [plankton@mail1 SETUPIMAP]$
[plankton@mail1 SETUPIMAP]$ cyradm --user=cyrus mail1
IMAP Password: 
mail1.snakehandlers.net> lm
user.plankton (\HasNoChildren)
mail1.snakehandlers.net> quit
[plankton@mail1 SETUPIMAP]$