perl -e 'opendir DIR, "./";@directory =readdir(DIR);for $entry (@directory){print "$entry\n";}'