use strict;
use warnings;
use Coro;

my $ca = async {
    print "coro a\n";
    cede;
}

my $cb = async {
    print "coro b\n";
    cede;
}

print "In main\n";
cede;
print "Back in main\n";
__END__
In main
coro b
coro a
Back in main