Что делает «select ((select (s), $ | = 1) [0])» в Perl?

Возможный дубликат:
Что выбирает (( select (s), $ | = 1) [0]) делать в Perl?

Для чего нужна вторая строка?

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

perl filehandle
person planetp    schedule 18.02.2010    source источник