# Set mbox object.
my $mb = Mail::Box::Mbox->new(
	folder => "/var/spool/mail/root", 
	access => 'rw', 
	remove_when_empty => 0,
	lock_wait => 10,
	lock_method => 'DOTLOCK',
);

use Data::Dumper;
for my $msg ($mb->messages) {	
   print Dumper($msg->string);
}