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