$sth = $dbh->prepare("INSERT INTO email (f_name, l_name, code, ext, email)
                      VALUES (?,?,?,?,?)");
$sth->execute($FNAME, $LNAME, $STR, $CT5, $EMAIL) || 
   die $sth->errstr;