mkdir test\ this
perl -e 'opendir (DIR,"./");@files = readdir DIR;foreach $file (@files){print "$file is a directory\n" if (-d $file);}'
test this is a directory
.. is a directory
. is a directory