perl -e 'mkdir("dir$_") for 1..20'