my $file_find_wanted = sub {
        if (-f $File::Find::name) {
            $work{gefunden} ++;
        }
    }
    find($file_find_wanted, ('/www'));