my %format = (
   linestart => "",
   fseperator => "\n",
   fields => { id => 'Id: $', test => 'Test: $' },
   lseperator => "\n\n",
   lineend => "",
);

my @data = (
   {
      id => 1,
      test => 'Basic Functions',
   },
   {
      id => 1,
      test => 'Advanced Functions',
   }
);

my $page = 1;     #Which page
my $length = 1;   #Number of entrys per page

print pager(\%format,\@data,$page,$length);

------------ Output:

Id: 1
Test: Basic Functions


------------ Or if $page was set to 2

Id: 2
Test: Advanced Functions

------------ Of if $length was 2 (or more)

Id: 1
Test: Basic Functions

Id: 2
Test: Advanced Functions
[download]