use File::Find;
my $base = "c:/blub";
find( sub { push(@dateien, $File::Find::name) }, $base );

##</code><code>##

my $ext = "html|php";

##</code><code>##

my $dirs = "/cgi-bin|log";

##</code><code>##

/\.($ext)$/i;