# 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 !;
}