$sth->{NAME}不能获得表的列名

$sth->{NAME}不能获得表的列名

可以用$sth->{NUM_OF_FIELDS}得到表的列数,
但$sth->{NAME}没有值返回,
请问如何获得表的每一列的字段名呢?
这个问题好象提的有一点怪,给点上下文。
$sth->execute;
my $fields=sth->{NUM_OF_FIELDS};
for(my $i=0;$i<$fields;$i++){  print $sth->{NAME}->[$i]."\n";}