Select Code to Download

    { no strict 'refs';
      $sth->bind_columns( map { \${"c_$_"} @{ $sth->{NAMES_lc} } ) }

    local $, = ',$'; # saves on the joins
    eval "\$sth->bind_columns(\\( \$@{$sth->{NAMES_lc}} ))"