for my $p ($m->parts_DFS()) {
    # Skip 'container' parts
    next if $p->effective_type() =~ /^multipart/;
    $sth_insert_bdy->execute($key,
                             $p->stringify_body(),
                             $m->head->multipart_boundary || "",
                             $p->head->mime_type || "",
                             $p->head->mime_encoding        || "",
                             $p->head->recommended_filename || "");
}