use strict;
use Data::Dumper;
use Carp;
use DBI;

my $dsn = 'localhost';
my $user = 'ewijaya';
my $password = 'ewijaya';
my $dbh = DBI->connect('dbi:mysql:motif_finder','monkfan','monkpwd')
    or die "Connection Error: $DBI::errstr\n";

my $go_term = "proteasome localization";
my $sql = "SELECT Symbol FROM gene_info RIGHT JOIN gene2go ON(gene_info.`GeneID`= gene2go.`GeneID`) WHERE GO_Term=$go_term";

my  $sth = $dbh->prepare($sql);
$sth->execute or die "SQL Error: $DBI::errstr\n";


while ( my @row = $sth->fetchrow_array ) {
    print "@row\n";
}