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