(perl) A non-blocking, concurrent DNS server POE component