perl -MFile::Find -e 'find(sub{/\.file/&&print($File::Find::name)},"./DIR1")'