perl -e 'opendir(D,"."); print join($/,readdir(D)),$/'