If you still want to write it yourself, do not use threads at all, use IO::Select, Event, or EV.