Select Code to Download

sub Min { my $min=shift; $_<$min and $min=$_ for @_; $min }
sub Max { my $max=shift; $_>$max and $max=$_ for @_; $max }
...
        Min($P{Page}+$P{NextPages}, ($P{Records}-1)/$P{Count}+1) ];
    return \%P;
}

# these two commands are equal :-)
$nav=CalcNavigation({Records=>100, From=>1, Count=>10, NextPages=>2});
...
    'NextPages'    =>     2,
    'PrevPages'    =>    10,
    };

=item B<CalcNavigation>( \%nav )

...
=back

=cut