my @files = grep(/\w+/,readdir(DIR));
    close (DIR);

    foreach  my $subdir (@files){
        if(-d $dir.'/'.$subdir){