This is a perl library which provides a select based non-blocking server engine. It is still beta, however, does appear to work