#!/usr/bin/perl -w
use strict;

use Mail::Box::Manager;

my $mgr = new Mail::Box::Manager;
my $box = $mgr->open(folder=>"/you/mail/somebox");

my $c = 0;
while (my $msg = $box->message($c)) {
	my @sender = $msg->from;
	my $id = $msg->messageId;
	print "\n$id\n$sender[0][0]\n";
	$c++;
}