#!/usr/bin/perl -w

use strict;

use Coro;
use Coro::Event;

foreach (3, 5, 7) {

    my $pid = new Coro sub {
        my $count = $_[0];
eval q|
        my $value = $count;
        print "Start $value\n";

        while ($value) {
            print "value $count -> $value\n";
            --$value;
            cede;
        }
|;
    }, $_;

    $pid->ready;
}

print "START\n";
loop;
print "DONE.\n";