SELECTの結果からカラム名を取得

$sth->{NAME}で取れる。

 my $sql = 'select * from member';
 my $sth = $dbh->prepare($sql);
 $sth->execute();
 my $col1 = $sth->{NAME}->[0];
 my @columns = @{$sth->{NAME}};
 print @columns;

参考

http://search.cpan.org/~timb/DBI-1.58/DBI.pm#NAME_uc