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

##</code><code>##

use IO::Handle qw( );  # For flush
OUTPUT_HANDLE->flush();