#!/usr/bin/perl

# connect to db
my $dbh = DBI->connect(bla..bla..bla);
my $sql_q = "SHOW COLUMNS FROM $table";
my $sth = $dbh->prepare($sql_q);
$sth->execute;

while (@row = $sth->fetchrow_array){
print"Field    Type     Null     Key     Default    Extra\n";
print"----------------------------------------------------\n";
print"$row[0]  $row[1]  $row[2]  $row[3] $row[4]    $row[5]\n";

}