#!/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};
}