select((select($fh), $|=1)[0]);

##</code><code>##

use IO::Handle;
# ...
$fh->autoflush();