CandymanCID, here's somthing that reports column name. UPDATE: added more context, because original code wasn't clear.

    
my @colNames; 
my $sth1 = $dbh->table_info(); 
while (my(@tab) = $sth1->fetchrow_array()) {
    push @colNames, $tab[2];     
    }

open OUT, ">col.txt";
foreach $colName(@colNames) {    
print OUT "$colName\n";
my $sth = $dbh->column_info(); 
    while (my @info = $sth->fetchrow_array()) {
    foreach (@info) {$_ = 'NULL' unless defined $_}     
        if ($colName eq $info[2]) {
        print OUT "\t$info[3]\n";
[download]

The DBI docs on CPAN are good, but dense. My example above should get you going...