You can always use a nice module like Data::Page to help you with it.

use strict;
use warnings;

use Data::Page;
my $page = Data::Page->new($records, 15, url_param("page"));
my $first = $page->first;
my $last = $page->last;
my $next_page = $page->next_page;
my $prev_page = $page->previous_page;
[download]