#!/usr/local/bin/perl -w
use DBI;
my $dbh = DBI->connect('dbi:mysql:test', "", "", { PrintError => 0 , RaiseError => 1});
END { $dbh->disconnect if $dbh }
use Data::Dumper;

my $sth = $dbh->prepare('DESCRIBE foo');
$sth->execute;
while(my $r = $sth->fetchrow_hashref) {
	print Dumper $r;
}