use IMAP::Admin;
$imap = IMAP::Admin-> new('Server' => 'mailint',
                             'Login' => 'root',
                            'Password' => eval { $cipher->decrypt(<FILE>);} );
    close (FILE);
    eval {
     $err = $imap->set_acl("user.".$user, "root", "lrswipdca");
    };
    if ($err != 0) {
      print "$imap->{'Error'}\n";
      print "$imap->error\n";
      exit 1;
    }
    print "ACL erfolgreich gesetzt\n";
    }
    eval {
     $err = $imap->h_delete("user.".$user);
     $imap->close;
    };
    if ($err != 0) {
      print "$imap->{'Error'}\n";
      print "$imap->error\n";
      exit 1;
    }
    exit 0;

use strict;
use warnings;