my $rows = 30;
my $count = ...; # get total resultcount
my $page = ...; # get page from cgi
    my $pager = WWW::Battie::Pager->new({
             items_pp => $rows,
             total_count => $count,
             before => 3,
             after => 3,
             current => $page,
             link => '/my/script?foo=bar;p=%p',
             title => '*%p*',
         })->init;