What does “select((select(s),$|=1)[0])” do in Perl?

Question

I\'ve seen some horrific code written in Perl, but I can\'t make head nor tail of this one:

select((select(s),$|=1)[0])

It\'s in some netwo

Answer 1

It's overly clever code for turning on buffer flushing on handle s and then re-selecting the current handle.

See perldoc -f select for more.