Select Code to Download

$old_fh = select(OUTPUT_HANDLE);
$| = 1;
select($old_fh);

select((select(STDERR), $| = 1)[0])

use IO::Handle;
OUTPUT_HANDLE->autoflush(1);

use FileHandle;
STDOUT->autoflush(1);

use IO::Handle;
autoflush ONE_HANDLE 1;     # unbuffer for clarity
autoflush ANOTHER_HANDLE 0; # buffer this for speed