在Perl中“select（（select（s），$ | = 1）[0]）”做什么？

Question

  

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

第二行的目的是什么？

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