#!/usr/bin/env perl

use warnings;
use strict;

use DBI;

my $dsn = "DBI:mysql:database=mysql";
my $dbh = DBI->connect($dsn,
    ... , #user name and password
    { RaiseError => 1 }
) or die $DBI::errstr;

my $info = $dbh->column_info(
    undef, 'mysql', 't_test_type', '%'
)->fetchall_hashref('COLUMN_NAME');
while (my ($col, $col_info) = each %$info) {
    print "$col $col_info->{ DATA_TYPE } $col_info->{ TYPE_NAME }\n";
}