select(do { my $oldfh = select(FH); $|++; $oldfh });