my $get_db_data = sub
{
    my ($offset,$per_page)=@_;
    my (@return_array, @data); 
    connectDb() if(!$dbHandle);
    my $stmtHandle = $dbHandle->prepare("select id,name,address,email,phone from ADDRESSBOOK limit $offset, $per_page");
    $stmtHandle->execute();
    while(@data = $stmtHandle->fetchrow_array())
    {
        push(@return_array, [@data]);
    }
    $stmtHandle->finish();
    $dbHandle->disconnect();
    return \@return_array;
};

##</code><code>##

my $pager = HTML::Pager->new(query=>$query,
                  get_data_callback=>DbManager::get_db_data,
                                rows=>DbManager->rowCount,
                                 page_size=>5,
                                cell_space_color=>'#000000',
                            cell_bacground_color=>'#ffffff',
                                 debug=>1
                                 );