#!/usr/bin/env perl6

use Libarchive::Simple;

with my $archive = archive-new()
{
    .mkdir: 'adir';
    .write: 'adir/afile', "Some content\n";
    .add: 'README.md';
    .spurt: 'this.zip';
}
