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