Perl6 segfaulting code.

farm.p6

#!/usr/bin/env perl6

use v6;
use JSON::Tiny;

sub MAIN(Str $exploitd = './exploitd/', Str $config-file = './farm.json') {
    my $config = from-json slurp $config-file;


    my $flagre  = $config<flag_regex> || '\w+';
    my $targets = $config<targets> or die "'targets' are not present in $config-file";
    my $submit  = $config<submit> or die "'submit' is not present in $config-file";

    my $exploits = $exploitd.IO.dir.map: {$_.path};

    say "targets are $targets[]";

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