....

    #open the mail folder, in rw mode
    my $folder = Mail::Box::Maildir->new(
        folder            => $args{maildir},
        access            => 'rw',
        remove_when_empty => 0
      )
      or croak "Cannot open Maildir " . $args{maildir} . ": $!";

    #run thru all messages
    foreach my $id ( $folder->messageIds ) {


        my $message = $folder->messageId($id);
        next if $message->isDeleted;
....
[download]