Разбивка на страницы в Javascript в таблицах HTML в модуле Perl

Я написал ниже Javascript для отображения номеров страниц для таблицы html, которая отображается из сценария perl.

Я хотел отобразить первые 10 страниц с помощью кнопок prev и next, ниже код отображает все номера страниц, общее количество страниц, полученных из html.

  for (x=1; x<=total; x++){
    counter = x;
    if (counter%2 == 0){
      var onclick_value = "page_change(" + x + ")";
      if (x == present_page){
            document.write("<td width='5'><a class=evenrow><b>" + x + "</b></td>");
      }

    else {
            document.write("<td width='5'><a class=evenrow href='#' onclick='" + onclick_value + "'>" + x + "</td>");
      }
    }
    else {
      var onclick_value = "page_change(" + x + ")";
      if (x == present_page){
            document.write("<td width='5'><a class=oddrow><b>" + x + "</b></td>");
      }else {
            document.write("<td width='5'><a class=oddrow href='#' onclick='" + onclick_value + "'>" + x + "</td>");
     }
    }

}