OUTPUT_FILE->autoflush(1);

##</code><code>##

use IO::Handle qw( );