my @list = (select(STDERR), $|++);
select(@list[0]);