use strict;
use Mail::Box::Mbox;

my $input = Mail::Box::Mbox->new(folder=>$ifile) or die;
for my $msg ($input->messages) {
    print "[$ifile] message subject: ", $msg->subject, " sender: ", $msg->sender, "\n";
}

$input->close;