in reply to find files ina Directory while not changing to it

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

[download]

In Section Seekers of Perl Wisdom