use threads qw[ yield ]; ## Why (*&^^%) isn't that exported by default?
...
    threads->create(
       ...
    );
    yield; sleep 1;      ## insert
}
...