$b = <H>;
   close(H);