# page links my $pagelinks; if ($reqpage > 1){ my $prev_page = $reqpage - 1; $pagelinks .= qq! Previous !; } for my $pageno (1..$pagecount){ if ($pageno == $reqpage){ $pagelinks .= qq! $pageno!; } else { $pagelinks .= qq! $pageno !; } } if ($reqpage < $pagecount){ my $next_page = $reqpage + 1; $pagelinks .= qq! Next !; }