#---------------------------------------------------------
# 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;
}