my $found;

sub wanted {
    $found = $File::Find::name if /^eudora\.ini\z/i;
}