use MIME::Parser;
use Mail::Util qw( read_mbox );
my @messages = read_mbox('filename');
my @parsed_messages = map {(new MIME::Parser)->parse($$_)} @messages;