my $sql = "select title from $TABLE2 where astype like " . $dbh->quote("%$query");

##</code><code>##

my $sql = "select title from $TABLE2 where astype like ?";
my $sth = $dbh->prepare($sql) or die "Cannot prepare: " . $dbh->errstr();
$sth->execute("%$query") or die "Cannot execute: " . $sth->errstr();