perl+mysql название столбцов таблицы

Добрый день!
пытаюсь осилить perl+mysql:
#!/usr/local/perl/bin/perl -w
use DBI;
my $dsn=«DBI:mysql:database=db:localhost»;
my $dbh = DBI->connect($dsn,«user», «password»);
my $sth = $dbh->prepare(«select * from temp_table;»);
$sth->execute();

как вытащить названия полей таблицы при запросе вида «SELECT * »? в пхп делаю так:

$row=mysql_fetch_array($db->res, MYSQL_ASSOC);
foreach ($row as $key=>$cell)
{
   echo $key;
}

а в перле так и не смог осилить(