open(BINM,"<:raw");
binmode(BINM);
read(BINM,$number,64);