Select Code to Download

         my $p= MIME::Parser->new;
         $p->output_to_core(1);
         $p->parse($msg_or_fh);

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

   
   # Open a handle to each part which is an attachment
   my @attachments=
...

   # Convert zipfile attachments to the list of files within
   @attachments= map { $_->{name} =~ /\.zip$/? _extract_zipfile($_) : 
+($_) } @attachments;

# Takes one file info, and returns a list of file infos for each file 
+within the zip file.
# Since these are not directly MIME parts, they are simply:
...
      if $status < 0;
   return @files;
}