use IO::Handle;
STDOUT->autoflush(1);

##</code><code>##

select((select(STDOUT), $| = 1)[0]);