#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find;

test();

sub test {
    my %work = (
        gefunden    => 0,
    );
    {
        no warnings 'File::Find';
        find(\&file_find_wanted,('/www'));
    }
    sub file_find_wanted {
        if (-f $File::Find::name) {
            $work{gefunden} ++;
        }
    }
    print $work{gefunden};
}