##
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