############################# 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(); 
 
################################################################################