Directory handles are just fine, but I prefer the brevity provided by glob (though the Camel notes that readdir is faster, my typical scripts are such that "the less noise, the better").

use File::Glob qw(:globally);
print join "\n",  map {-d $_ ? $_ : ()} glob ('c:/foo/{*,.*}');
[download]

,welchavw