my $min=...  or 0;
my $max=$min+100;

my $row=0;
while(@r=$sth->fetchrow()){
  if(($row>=$min)&&($row<$max)){
    #print some data
  }
  $row++;
}
$sth->finish();

if($row>$max){
  # print next link w. "min=$max"
}