binmode $fh;