Select Code to Download

  my $mime = File::MimeInfo::SharedMimeInfoXML->new();

...
    print sprintf "%s: %s\n", $file, $_->mime_type
        for $mime->mimetypes($file);
  };