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

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