find2perl somedir -depth -type f > somefile.pl