Select Code to Download

use strict;
use warnings;
...
}
# save index into file
store \@index, "$mbox.idx";

use strict;
use warnings;
...
    $mb->set_pos($index->[$num][1]);
    print $mb->next_message_old;
}