use IO::Handle;
STDOUT->autoflush(1); # OO form
autoflush STDOUT 1;   # procedural form