Select Code to Download

{ my $old= select(OUT); $|= 1; select($old); }

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