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