Select Code to Download

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

my $ext = "html|php";

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

/\.($ext)$/i;