perl6 segfault

segfault.p6

#!/usr/bin/env perl6
use JSON::Tiny;

# Some data to work with
mkdir ‘data-for-segfault’;
my $script = ｢sleep 0.1s｣;
spurt ‘data-for-segfault/a’, $script;
spurt ‘data-for-segfault/b’, $script;
chmod 0o755, "data-for-segfault/a", "exploitd/b";
spurt ‘foo.json’, ｢{"targets": ["a","b","c","d","e"]}｣;

# Code
my $config = from-json slurp ‘foo.json’;
my $targets = $config<targets>;
my $exploits = ‘data-for-segfault’.IO.dir.map: {.path};

say "targets are $targets[]";

for $targets.race(batch => 2, degree => 2) -> $target {
    for $exploits -> $exploit {
        shell "$exploit $target";
    }
}