perl - “select((select(s),$|=1)[0])” 在 Perl 中有什么作用？

Question

可能重复：
“select((select(s),$|=1)[0])”在 Perl 中做了什么？

第二行的目的是什么？

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