use strict;
use warnings;

opendir my ($root), 'C:\Users\Default';
my @dirs = readdir $root;

print "$_\n" for @dirs;