select(LOGFILE); $| = 1;
select(STDOUT);

##</code><code>##

use IO::Handle;    # not needed for Perl 5.14+
# ...
$logfile->autoflush();

##</code><code>##

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