my $pagecount = $total_recs / 10;
my $n = $pagecount;

print ("Page 1 of ");
print POSIX::ceil($n), $/;

my @pages = (1 .. $n);

    for $i (@pages) {
        print "<a href=\"http://www.example.com/page$i.shtml\">http://www.example.com/page$i.shtml</a><br>\n";
    }