Select Code to Download

use File::Find;

...
find( sub {
    push(@dateien, $File::Find::name) if ( /\.($ext)$/i && -T);
}, $base );

my dirs = "cgi-bin|logs";