Select Code to Download

SELECT '".$Reference."', '".$Comparitor."', A.entity_name 
FROM e_annotation_090812.annotation A 
...
where A.entity_name like '_%'
  and A.evidence_code not like '%_________8__'
  and (A.centre like '".$Reference."' or A.centre like '".$Comparitor.
+"')

SELECT '".$Reference."', '".$Comparitor."', A.entity_name 
FROM e_annotation_090812.annotation A 
...
     or substring(A.evidence_code,length(A.evidence_code)-2,1)<>'8')
  )
  and (A.centre = '".$Reference."' or A.centre = '".$Comparitor."')

my $ST = $DB->prepare(<<EOSQL);
SELECT ?, ?, A.entity_name 
...
  and (A.centre=? or A.centre=?)
EOSQL
$ST->execute($Reference, $Comparitor, ".$Reference.", ".$Comparitor.")
+;