Select Code to Download

use File::Path qw(mkpath);
...
mkpath("M1_fa_$W/M1_${W}__comptage_${C}_${I}_first_action");
...