store column names in first line prefixed by #

diff --git a/mkp-marc.pl b/mkp-marc.pl
index 791f98e..2c5303b 100755 (executable)
--- a/mkp-marc.pl
+++ b/mkp-marc.pl
@@ -36,6 +36,8 @@ my $sth = $dbh->prepare( $sql );
 $sth->execute();
 
 warn "# ", $sth->rows,"\n";
+warn "# NAME = ",dump( $sth->{NAME} );
+print $tsv_fh "#", join("\t", @{ $sth->{NAME} }), "\n";
 
 my $i = 1;