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

Question

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

What's the purpose of the second line ?

open my $fh, '>>', $logfile or die $!;
select((select($fh), $|=1)[0]);