$imap = Mail::IMAPTalk->new(
            Server => 'foo.com',
            Port => 143,
            Username => 'joebloggs',
            Password => 'mypassword',
            Separator => '.',
            RootFolder => 'inbox',
            CaseInsensitive => 1)
          || die "Connection to foo.com failed. Reason: $@";

  $imap->select('user.john'); # Selects 'user.john'

  my $Res = $imap->fetch('1:*', 'all');

##</code><code>##

# Get full access for user 'joe' on his own folder 
$imap->setacl('user.joe','joe','lrswipcda') || die "IMAP error: $@"; 
# Remove write, insert, post, create, delete access for user 'andrew'
$imap->setacl('user.joe','andrew','-wipcd') || die "IMAP error: $@";
# Add lookup, read, keep unseen information for user 'paul' 
$imap->setacl('user.joe','paul','+lrs') || die "IMAP error: $@";