worker.p6

sub worker() {
    react {
        my $current-proc;

        whenever Promise.in(5) {
            say "Timed out!";
            $current-proc.?kill;
            done;
        }

        my @tasks =
            {
                $current-proc = Proc::Async.new('calc.exe');
                $current-proc.start
            },
            {
                say "doing some work";
            },
            {
                $current-proc = Proc::Async.new('calc.exe');
                $current-proc.start;
            };

        sub next-task() {
            done unless @tasks;
            my $running = @tasks.shift.();
            if $running ~~ Promise {
                whenever $running {
                    $current-proc = Nil;
                    next-task();
                }
            }
            else {
                next-task();
            }
        }
        next-task();
    }
}

worker();