perl Coro