$dir = ...;
@files = map { (split(' ', substr($_, 39)))[0] }
            split("\n", `dir /x "$dir"`);