Mega Code Archive
Categories
/
Perl
/
File
The file list in current folder
print join ("\n", glob ('*'));