use IO::Handle;
...
OUT->autoflush(1);