use one of the various File::Find modules. File::Find

perl -e 'use File::Find; find( { wanted => sub { -f $_ && print $File:
+:Find::name, "\n" }}, "." );'
[download]