while (read(FILE, $buf, 1)) {
   ...
}