$ perl -wle 'use strict; use File::Find; find(sub { print if -f }, ".");'
651889.pl
1
3
2
8
7
9
6
5
4