my $data = qq[SELECT COUNT(*) FROM questions WHERE `q1` = "upright"];
my $sth = $dbh->prepare($data);
$sth->execute() or die $sth->errstr;

print $sth;