Select Code to Download

printf "Columns             %s\n",join( ',', map {$_->name} $stmt->col
+umn_defs() );

print Dumper $stmt->column_defs();