{ my $old= select(OUT); $|= 1; select($old); }