File Perl

print join ("\n", glob ('*'));