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

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

my $sql = "SELECT Symbol FROM gene2go WHERE GeneID=812222";

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


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