{ my $old= select(OUT); $|= 1; select($old); }

##</code><code>##

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