select(OUTPUT);  # Change the default filehandle
   $|=1;            # Turn on autoflushing for default f.h.
   select(STDOUT);  # Go back to normal default f.h.