できました！CrossProduct超便利ですね
ありがとうございました。

>>362
dir (or ls) をパイプ付きで open するとズルができます。
open(DIR, "dir /s /q |");