binmode FILE;
   sysread(FILE,$buffer,1);