my $query = qq~
  SELECT DISTINCT SUBSTRING_INDEX(SUBSTRING_INDEX(path, "\\", -2), "\\", 1) AS dir FROM files
~;
my $sth = $dbh->prepare($query);
my $rv = $sth->execute;