Select Code to Download

my $get_db_data = sub
{
...
    $dbHandle->disconnect();
    return \@return_array;
};

my $pager = HTML::Pager->new(query=>$query,
                  get_data_callback=>DbManager::get_db_data,
...
                                 debug=>1
                                 );