while(1)
{
    if ($cnt == 8000) {

    }

    read($fh, $buffer, 1);

    if(defined($buffer)) {

        $cnt++;
    }
}