#!/usr/bin/perl -w

use strict;
use Cyrus::IMAP::Admin;

my $cyrushost = 'localhost';
my $cyrususer = 'imapadminuserhere';
my $cyruspass = 'yourpasswordhere';

my $cyrus = new Cyrus::IMAP::Admin $cyrushost;
$cyrus->authenticate(-mechanism => 'login', -user => $cyrususer, -password => $cyruspass); 
die "Cyrus: " . $cyrus->error() if $cyrus->error();

my @mboxes = grep { /^user\.[^\.]+$/ } map { $_->[0] } $cyrus->listmailbox('*');

foreach my $mbox (@mboxes) {
	print "$mbox: ";
	print $cyrus->setaclmailbox($mbox, 'anonymous' => '0') ;
	print "\n";
}