sub flush { my $h = select($_[0]); my $af=$|; $|=1; $|=$af; select($h); }