use strict;

my @dirs = system(dir /b /s);

for (@dirs)  {print;}