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