my ($fh, $junk) = (select(STDERR), $|++);
select($fh);