$ perl -e  '@c=readdir DIR ; print "@c\n";'