Select Code to Download

my $sth = $dbh->column_info( undef, $db, $table, '%');
my $ref = $sth->fetchall_arrayref;
my @cols = map { $_->[3] } @$ref;