use IO::Handle; use Coro; use Coro::Timer; 
my $s = async { for (0..11) { Coro::Timer::sleep 0.2; printflush STDOUT "s"; } }; 
for (0..9) { Coro::Timer::sleep 0.1; printflush STDOUT "m"; } 
$s->join;