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

##</code><code>##

$oldfh = select(WRITE);
$| = 1;
select($oldfh);