gistfile1.txt

┌─[tadzik@yavin4]─[~/src/perl/Coro] 
└─[%]─> cat test.pl 
use lib 'lib';
use Coroutines;

async {
    # some asynchronous thread of execution
    say 2;
    yield; # yield back to main
    say 4
};

say 1;
sched; # jump to async block
say 3;
sched; # and again
say 5;
sched; # this would do nothing, all coroutines are exhausted
say 6;