my $list = $DB->table('Links')->form_names();

use Data::Dumper;
print Dumper($list);

$VAR1 = {
'Description' => {
'pos' => '7',
'form_type' => 'TEXTAREA',
'form_size' => '30',
'weight' => '1',
'type' => 'TEXT',
'form_display' => 'Description'
},
'LinkOwner' => {
'not_null' => '1',
'pos' => '4',
'form_type' => 'TEXT',
'form_size' => '20',
'size' => '50',
'type' => 'CHAR',
'form_display' => 'LinkOwner',
'default' => 'admin'
},
'Hits' => {
'not_null' => '1',
'pos' => '10',
'form_type' => 'TEXT',
'form_size' => '10',
'regex' => '^\\d+$',
'type' => 'INT',
'form_display' => 'Hits',
'default' => '0'
},
'Date_Checked' => {
'pos' => '18',
'form_type' => 'DATE',
'form_size' => '20',
'type' => 'DATETIME',
'form_display' => 'Date Checked',
'default' => ''
},
'Status' => {
'not_null' => '1',
'pos' => '17',
'form_type' => 'TEXT',
'form_size' => '10',
'regex' => '^\\-?\\d+$',
'type' => 'SMALLINT',
'form_display' => 'Status',
'default' => '0'
},
'isChanged' => {
'values' => [
'No',
'Yes'
],
'not_null' => '1',
'pos' => '12',
'form_type' => 'SELECT',
'type' => 'ENUM',
'form_display' => 'isChanged',
'default' => 'No'
},
'isPopular' => {
'values' => [
'No',
'Yes'
],
'not_null' => '1',
'pos' => '13',
'form_type' => 'SELECT',
'type' => 'ENUM',
'form_display' => 'isPopular',
'default' => 'No'
},
'Add_Date' => {
'not_null' => '1',
'pos' => '5',
'form_type' => 'DATE',
'form_size' => '20',
'type' => 'DATE',
'form_display' => 'Add Date'
},
'Title' => {
'not_null' => '1',
'form_type' => 'TEXT',
'form_size' => '20',
'weight' => '3',
'form_display' => 'Title',
'pos' => '2',
'size' => '100',
'type' => 'CHAR'
},
'Timestmp' => {
'pos' => '19',
'form_type' => 'DATE',
'form_size' => '20',
'time_check' => '1',
'type' => 'TIMESTAMP',
'form_display' => 'Timestamp'
},
'Rating' => {
'not_null' => '1',
'form_type' => 'TEXT',
'form_size' => '10',
'regex' => '^\\d+\\.?\\d*$',
'form_display' => 'Rating',
'display' => '12',
'decimal' => '2',
'pos' => '15',
'type' => 'FLOAT',
'default' => '0'
},
'Votes' => {
'not_null' => '1',
'form_type' => 'TEXT',
'form_size' => '10',
'regex' => '^\\d+$',
'form_display' => 'Votes',
'unsigned' => '1',
'pos' => '16',
'default' => '0',
'type' => 'SMALLINT'
},
'isNew' => {
'values' => [
'No',
'Yes'
],
'not_null' => '1',
'pos' => '11',
'form_type' => 'SELECT',
'type' => 'ENUM',
'form_display' => 'isNew',
'default' => 'No'
},
'URL' => {
'not_null' => '1',
'form_type' => 'TEXT',
'form_size' => '20',
'weight' => '1',
'regex' => '^\\w+:',
'form_display' => 'URL',
'pos' => '3',
'size' => '255',
'default' => 'http://',
'type' => 'CHAR'
},
'Contact_Name' => {
'pos' => '8',
'form_type' => 'TEXT',
'form_size' => '20',
'size' => '255',
'type' => 'CHAR',
'form_display' => 'Contact Name'
},
'Contact_Email' => {
'pos' => '9',
'form_type' => 'TEXT',
'form_size' => '20',
'size' => '255',
'type' => 'CHAR',
'form_display' => 'Contact Email'
},
'ID' => {
'not_null' => '1',
'form_type' => 'TEXT',
'form_size' => '10',
'regex' => '^\\d+$',
'form_display' => 'ID',
'unsigned' => '1',
'pos' => '1',
'type' => 'INT'
},
'Mod_Date' => {
'not_null' => '1',
'pos' => '6',
'form_type' => 'DATE',
'form_size' => '20',
'type' => 'DATE',
'form_display' => 'Mod Date'
},
'isValidated' => {
'values' => [
'No',
'Yes'
],
'not_null' => '1',
'pos' => '14',
'form_type' => 'SELECT',
'type' => 'ENUM',
'form_display' => 'isValidated',
'default' => 'Yes'
}
};

my $cols = $DB->table('Links')->{schema}->{cols};

foreach my $key (keys ($cols)) {
print "$cols{$key}\n";
}

my %cols = $DB->table('Links')->{schema}->{cols};

foreach my $key (keys (%cols)) {
print "$cols{$key}\n";
}

my $cols = $DB->table('Links')->{schema}->{cols};

foreach my $key (keys %{$cols}) {
print "$cols->{$key}\n";
}

my %cols = $DB->table('Links')->cols;
foreach my $column (keys %cols) {
print "$column\n";
}