#!/usr/bin/perl
use strict;
use IMAP::Client;
use Sysadm::Install 0.23 qw(:all);
 
my $mailbox   = "im_mailbox";
 
my $imap = new IMAP::Client();
$imap->onfail('ABORT');
$imap->errorstyle('STACK');
$imap->debuglevel(0x01);
 
$imap->connect(
  PeerAddr     => 'localhost',
 ConnectMethod => 'PLAIN') or 
    die "auth failure " . $imap->error;
 
my $u  = getpwuid $>;
my $pw = password_read("passwd: ");
$imap->authenticate($u, $pw);
 
$imap->onfail('ERROR');
$imap->delete($mailbox);
$imap->onfail('ABORT');
 
$imap->create($mailbox);