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