Select Code to Download

use IO::Handle;
# ...
WRITE->autoflush(1);

$oldfh = select(WRITE);
$| = 1;
select($oldfh);