# Find every MIME part which is not a container for other parts
   sub _leaf_parts {
      my @parts= $_->parts;
      @parts? ( map { _leaf_parts() } @parts ) : ( $_ )
   }
   my @leaf_parts= map { _leaf_parts() } $email;