A side note, the way you used IO::Select is not quite right.

One of the main reasons to have IO::Select is to use one function, check multiple channels, so that those channels will not block each other even on one thread. Usually there is no point to have multiple IO::Select (in general)