Select Code to Download

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

use strict ; 
use warnings ; 
...
      print("Type of column $column_name in table $table_name is $colu
+mn_type.\n");
   }
}