$dbh->do( qq(CREATE DATABASE cag_repeat) ); 
 
$dbh->do( qq(DROP TABLE cag_repeat.CAG_MAIN) ); 
 
$dbh->do( qq(CREATE TABLE cag_repeat.CAG_MAIN 
   ( 
   ID         INT(10)       NOT NULL auto_increment, 
   SEQUENCE_NAME  VARCHAR(100)  NOT NULL, 
   SEQUENCE       TEXT          NOT NULL, 
   NOREPEATS      VARCHAR(100)  NOT NULL, 
   LOCATION       VARCHAR(100)  NOT NULL, 
   WARNINGLVL     VARCHAR(20)   NOT NULL, 
   PRIMARY KEY (ID) 
   )
) );