File Perl

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