He meant

my @dirs = grep { /\w/ && -d "$dir/$_" } readdir($dh);
[download]

which should probably be

my @dirs = grep { !/^\.\.?\z/ && -d "$dir/$_" } readdir($dh);
[download]