foreach my $part ($entity->parts_DFS) {
    my $type = $part->mime_type;
    next if($type eq 'image/gif');
    print "Here's a part: $type\n";
    # do what you want with the part here
}