use IO::Handle qw( );

OUT->autoflush(1);