$| = 1;
$^F = 10000;
STDOUT->autoflush(1);