#!/usr/bin/perl -w
my $adminuser = "cyrus"; # Cyrus admin user
my $adminpw = "traf"; # Cyrus admin password
my $server = "localhost";


use Cyrus::IMAP::Admin;

$imap = Cyrus::IMAP::Admin->new($server) || die "Unable to connect to $server";

if (! $imap) {
    die "Error creating IMAP connection object\n";
}

$imap->authenticate(-user => $adminuser,
        -password => $adminpw,
        ) || die "Authentication Failure";

if ($imap->error) {
    die $imap->error;
}

print "Successfully connected to IMAP server.\n";

open F, $ARGV[0];
while (defined(my $row = <F>)) {
    $imap->create("user.$row");
}
close F;