#!/usr/bin/perl

use HTML::Pager;
use CGI;
my $query = CGI->new();

# create a callback subroutine to generate the data to be paged
my $get_data_sub = sub {
   my ($offset, $rows) = @_;

   my @return_array;

   for (my $x = 0; $x < $rows; $x++) {
      push(@return_array, [ time() ]);
   }
   return \@return_array;
}

  # create a Pager object
my $pager = HTML::Pager->new(
                             # required parameters
                             query => $query,
                             get_data_callback => $get_data_sub,
                             rows => 100,
                             page_size => 10,
                             debug => 1,
                             );




  # make it go - send the results to the browser.
  print $pager->output;