print $FhResult  "Found it $File::Find::dir/$_\n" if /^[d or t]/i;