Select Code to Download

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

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

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