or download this
my $go_term = 'proteasome localization';
my $sql = 'SELECT Symbol FROM gene_info RIGHT JOIN gene2go ON(gene_inf
+o.GeneID= gene2go.GeneID) WHERE GO_Term=?';
my $sth = $dbh->prepare($sql);
$sth->execute($go_term) or die "SQL Error: $DBI::errstr\n";