find(\&getpm, "$fpath"); sub getpm { if ($File::Find::name =~/readme.txt/) { print "$File::Find::name\n"; else { print "File not Found"; exit(0); } } [download]
In reply to Searching for files by renee