Perl does not support truly unbuffered output (except insofar as you can syswrite(OUT, $char, 1)).