#!/usr/bin/perl -w
# ===========================================================================
# mbox2ezmlm.pl
# 
# Author: Alessandro Ranellucci <aar@cpan.org>
# Copyright (c) 2005.
# 
# see http://ezmlm-www.sourceforge.net
#-----------------------------------------------------------------------
#

use strict;
use warnings;

use Email::Folder;
use Email::LocalDelivery::Ezmlm;

#----
my $mbox = 'archive.mbox';
my $archive = '/path/to/list/dir//';
#----

my $folder = Email::Folder->new($mbox);
foreach my $message ($folder->messages) {
	Email::LocalDelivery::Ezmlm->deliver($message->as_string, $archive);
	printf "[%s] %s\n", $message->header("Date"), $message->header("From");
}

1;