while (read (STDIN ,$LINE, 4096) && $b_read < $len ){