make-bundle.pl6

use v6;

my $files-file = "files.list";
my $zip-name = "for-abc-" ~ Date.new(now) ~ ".zip";

my $zip = Proc::Async.new(:w, 'zip', $zip-name, '-@');
my $promise = $zip.start;

for $files-file.IO.lines() -> $line {
    await $zip.say: $line;
}
$zip.close-stdin;

await $promise;

$zip-name.IO.copy("/Users/colomon/Google Drive/ABC Work/" ~ $zip-name);