File::Find::find({no_chdir=>1,

##</code><code>##

if (-f $_ and /\.p(?:m|od)$/) {