Perlでコルーチン使えるのかw
クロージャ渡すかカーソルオブジェクト作ればいいんじゃね