CREATE DATABASE cag_repeat; 
 
DROP TABLE cag_repeat.CAG_MAIN; 
 
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) 
 
);

##</code><code>##

	

############################# Insert Into Database ############################# 
 
my $dbh = DBI->connect($dsn, $user, $password) or die "Unable to connect: $DBI::errstr\n"; 
 
my $row = $dbh->do("INSERT INTO cag_repeat.CAG_MAIN 
(SEQUENCE_NAME,SEQUENCE,NOREPEATS,LOCATION,WARNINGLVL) 
VALUES('$seqname','$sequence','$len','$amino_acid_number','$riskeval');"); 
 
$dbh->disconnect(); 
 
################################################################################