Help for this page
select((select(FH), $|=1)[0]);
use IO::Handle; # update: not needed for Perl 5.14+ # ... $fh->autoflush();