use strict;
use warnings;

use Mail::MboxParser;

my $mb = Mail::MboxParser->new( 'mbox', );

my $ind = $mb->make_index;
for ( 0 .. $mb->nmsgs - 1 ) {
    printf "%5.5d => %10.10d => %s\n", 
        $_, $mb->get_pos($_), $mb->get_message($_)->header->{subject};
}