my $select_x = "describe $table_name";
    $dbh = get_connection($me, $mepw);
    $sth = $dbh->prepare($select_x);
    my $rc  = $sth->execute;
    while (my (@rows) = $sth->fetchrow_array) {
      print "$rows[0] -- $rows[1]\n";
    }