my $oldfh = select($kidfh); $| = 1; select($oldfh);