Cyrus - добавление ящика из скрипта

гы

use IMAP::Admin;
my $IMAP = IMAP::Admin->new(
	  'Server'   => $imapHost || 'localhost',
	  'Port'     => $imapPort || 143,
	  'Login'    => $imapAdmin,
	  'Password' => $imapPassword,
	  'Separator'=> '/',
);

$IMAP->create($mailbox);