Select Code to Download

  foreach $x (@attypes){
    if ($subentity->mime_type =~ m/$x/i){
...
      push @attname, $subentity->head->mime_attr('content-disposition.
+filename');
     } 
  }