#---------------------------------------------------------
# Function:   get_records (taken from process_member.pl)
# Arguments:  DB handle
#             sql query string
# Returns:    result array of SQL query
#---------------------------------------------------------

sub get_records {
    my ( $db_handle_ref, $sql ) = @_;
    my @recs;
# [...]
    return @recs;
}