# Pastebin GhfQRC0E
sub extract-manifests() {
    my %manifests;

    for find(dir => './plugins', type => 'file').list -> $file-str {
        my $file = $file-str.IO;
        next unless $file.basename eq 'latest.zip';
        my $plugin-name = $file.dirname.basename;
        my $archive = Archive::Libarchive.new(filename => $file);
        for $archive.files -> $file {
            if $file.name eq "{$plugin-name}.json" {
                my $manifest = from-json($file.content);
                %manifests{$plugin-name} = $manifest;
            }
        }
    }

    say %manifests;
    return %manifests;
}