my $type_info = $dbh->type_info($data_type);
print "Name: ", $type_info->{TYPE_NAME};
print "Type: ", $type_info->{DATA_TYPE};