my $pp = 10;
my $page = do { ($cgi->param(page) || 0) =~ m/(\d+)/ ? $1 : 0 } * $pp;
my $sql = qq{ SELECT ... LIMIT $page OFFSET $pp };