use strict;
use warnings;

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

print "$_\n" for @dirs;

##</code><code>##

.
..
AppData
Application Data
Cookies
Desktop
Documents
Downloads
Favorites
Links
Local Settings
Music
My Documents

##</code><code>##

Summary of my perl5 (revision 5 version 20 subversion 2) configuration:

  Platform:
    osname=MSWin32, osvers=6.3, archname=MSWin32-x64-multi-thread
    uname='Win32 strawberry-perl 5.20.2.1 #1 Sat Feb 21 18:04:11 2015 x64'