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