perl -MFile::Path -e 'mkpath("dir$_") for 1..20'