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