Tye, I didn't think you cared about anything I wrote!. :-) I tried -1 for infinity, and still 100% cpu. But I had the audacity to undefine infinity and it does the right thing. CPU usage is minimal.

#Change:
#my ($new_readable) = IO::Select->select($readable_handles, undef, und
+ef, 0 );
# to
my ($new_readable) = IO::Select->select($readable_handles, undef, unde
+f, undef );
[download]

and the server in Re: Does IO::Select work? Solution is the Holy Grail after all. No sysctl.ph needed. :-) Minimum cpu usage.