#!/usr/bin/env perl6
use v6;

my $sleep = 10;
my $p1 = start { sleep $sleep; say "eins" }
my $p2 = start { sleep $sleep; say "zwei" }
my $p3 = start { sleep $sleep; say "drei" }

my $s = prompt "Yes or No?";
say $s;

while ($p1|$p2|$p3).status eq 'Planned' {
    say "working...";
    sleep 1;
}