select(STDIN); $|++;
    select(STDOUT); $|++;
    select(STDERR); $|++;

##</code><code>##

use IO::Handle;

    STDOUT->autoflush();
    STDERR->autoflush();

##</code><code>##

$| = 1;