#!/usr/bin/perl --
use strict; use warnings;
use CGI ();
Main( @ARGV );
exit( 0 );
sub Main {
    my $q = CGI->new;
    ...
    my @currentPageData = GetItGood( ... );
    ...
    return PaginationFudge(
        $numberResults,
        $numperPerPage,
        $currentPageNumber,
        \@currentPageData,
    );
}