while (<FILE>) {
    ...
    read(FILE, $buf, 1);