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