my $data = qq(
SELECT catname, path
  FROM categories
 WHERE path LIKE ?
   AND path != ?
);
my $sth = $dbh->prepare($data);
$sth->execute( "$path/%", $path ) or die $dbh->errstr;