my $data = qq(SELECT catname, path FROM categories WHERE path =~ m/^$path/ && path != "$path");
   my $sth = $dbh->prepare($data);
   $sth->execute() or die $dbh->errstr;