C:\test>perl -we"my $dir = 'c:\\program files\\'; print for `dir \"$dir\" /s /b /o:-s`"
c:\program files\7-Zip
c:\program files\Bin
c:\program files\Common Files
c:\program files\Core Temp
c:\program files\CPUID
c:\program files\Direct Modeling Express 4.0
c:\program files\Extras
c:\program files\GlowCode 9.0
c:\program files\Hitman Pro 3.5
...