# You must first create a new database called testing. Or if you deicde on a different name change it below as well. Normally this script iterated thru an extrernal file for the column names but that has been changed for this test. Make sure old passwords are on for this script to work on MySQL 4.1 use DBI; my ($dbh, $sth, $count); $dbh = DBI->connect ("DBI:mysql:host=localhost;database=testing", "nobody", "nobody", {PrintError => 1, RaiseError => 0}); $Array = "Column1 VARCHAR(100),Column2 VARCHAR(100),Column3 VARCHAR(100),Column4 VARCHAR(100),Column5 VARCHAR(100),Column6 VARCHAR(100),Column7 VARCHAR(100),Column8 VARCHAR(100),Column9 VARCHAR(100),Column10 VARCHAR(100),Column11 VARCHAR(100),Column12 VARCHAR(100),Column13 VARCHAR(100),Column14 VARCHAR(100),Column15 VARCHAR(100),Column16 VARCHAR(100),Column17 VARCHAR(100),Column18 VARCHAR(100),Column19 VARCHAR(100),Column20 VARCHAR(100),Column21 VARCHAR(100),Column22 VARCHAR(100),Column23 VARCHAR(100),Column24 VARCHAR(100),Column25 VARCHAR(100),Column26 VARCHAR(100),Column27 VARCHAR(100),Column28 VARCHAR(100),Column29 VARCHAR(100),Column30 VARCHAR(100),Column31 VARCHAR(100),Column32 VARCHAR(100),Column33 VARCHAR(100),Column34 VARCHAR(100),Column35 VARCHAR(100),Column36 VARCHAR(100),Column37 VARCHAR(100),Column38 VARCHAR(100),Column39 VARCHAR(100),Column40 VARCHAR(100),Column41 VARCHAR(100),Column42 VARCHAR(100),Column43 VARCHAR(100),Column44 VARCHAR(100),Column45 VARCHAR(100),Column46 VARCHAR(100),Column47 VARCHAR(100),Column48 VARCHAR(100),Column49 VARCHAR(100),Column50 VARCHAR(100),Column51 VARCHAR(100),Column52 VARCHAR(100),Column53 VARCHAR(100),Column54 VARCHAR(100),Column55 VARCHAR(100),Column56 VARCHAR(100),Column57 VARCHAR(100),Column58 VARCHAR(100),Column59 VARCHAR(100),Column60 VARCHAR(100),Column61 VARCHAR(100),Column62 VARCHAR(100),Column63 VARCHAR(100),Column64 VARCHAR(100),Column65 VARCHAR(100),Column66 VARCHAR(100),Column67 VARCHAR(100),Column68 VARCHAR(100),Column69 VARCHAR(100),Column70 VARCHAR(100),Column71 VARCHAR(100),Column72 VARCHAR(100),Column73 VARCHAR(100),Column74 VARCHAR(100),Column75 VARCHAR(100),Column76 VARCHAR(100),Column77 VARCHAR(100),Column78 VARCHAR(100),Column79 VARCHAR(100),Column80 VARCHAR(100),Column81 VARCHAR(100),Column82 VARCHAR(100),Column83 VARCHAR(100),Column84 VARCHAR(100),Column85 VARCHAR(100),Column86 VARCHAR(100),Column87 VARCHAR(100),Column88 VARCHAR(100),Column89 VARCHAR(100),Column90 VARCHAR(100),Column91 VARCHAR(100),Column92 VARCHAR(100),Column93 VARCHAR(100),Column94 VARCHAR(100),Column95 VARCHAR(100),Column96 VARCHAR(100),Column97 VARCHAR(100),Column98 VARCHAR(100),Column99 VARCHAR(100),Column100 VARCHAR(100),Column101 VARCHAR(100),Column102 VARCHAR(100),Column103 VARCHAR(100),Column104 VARCHAR(100),Column105 VARCHAR(100),Column106 VARCHAR(100),Column107 VARCHAR(100),Column108 VARCHAR(100),Column109 VARCHAR(100),Column110 VARCHAR(100),Column111 VARCHAR(100),Column112 VARCHAR(100),Column113 VARCHAR(100),Column114 VARCHAR(100),Column115 VARCHAR(100),Column116 VARCHAR(100),Column117 VARCHAR(100),Column118 VARCHAR(100),Column119 VARCHAR(100),Column120 VARCHAR(100),Column121 VARCHAR(100),Column122 VARCHAR(100),Column123 VARCHAR(100),Column124 VARCHAR(100),Column125 VARCHAR(100),Column126 VARCHAR(100),Column127 VARCHAR(100),Column128 VARCHAR(100),Column129 VARCHAR(100),Column130 VARCHAR(100),Column131 VARCHAR(100),Column132 VARCHAR(100),Column133 VARCHAR(100),"; $Length = "AVG_ROW_LENGTH=20 max_rows=1073741824"; $indexme = "PRIMARY KEY(Column3)"; $query = "Create TABLE TestMe ($Array $indexme) $Length"; $query =~ s/\r//g; $sth = $dbh->prepare ($query); $sth->execute (); $sth->finish (); $dbh->disconnect ();