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