Another Way to Write It :

use IO::Handle;
STDOUT->autoflush(1);
STDERR->autoflush(1);
[download]