#!/usr/bin/perl -w -T
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param url);
use Data::Pageset;

my $aktion = param("aktion");
my $page_info = Data::Pageset->new({
total_entries => 100,
entries_per_page => 10,
current_page => 1,
pages_per_set => 10,
mode => 'slide',
});

print "Content-type: text/html\n\n";
foreach my $page (@{$page_info->pages_in_set()}) {
print "<a href=\"test.cgi?aktion=$page\">$page</a> \n";
}
exit;