use IO::Handle qw( );
HANDLE->autoflush(1);