my ($found) = File::Find::Rule
    ->file
    ->name('eudora.ini')
    ->in('C:\\');