Select Code to Download

CREATE TABLE foo(
  id int(10) unsigned NOT NULL AUTO_INCREMENT,
...
  num float NULL,
  PRIMARY KEY (id)
);

#!/usr/local/bin/perl -w
use DBI;
...
while(my $r = $sth->fetchrow_hashref) {
    print Dumper $r;
}

$VAR1 = {
          'Extra' => 'auto_increment',
...
          'Type' => 'float',
          'Null' => 'YES'
        };