sub executeQuery 
{
eval{$sqlH = $dbh->prepare($sql);};
if ($@) {print "Database Error: " . $dbh->errstr();exit;}
print "Prepared\n";
eval{$sqlH->execute();};
if ($@) {print "Database Error: " . $dbh->errstr();exit;}
}