X:\>perl -c tmp.pl
tmp.pl syntax OK

X:\>type tmp.pl
#! usr/bin/perl -w
use strict;


use File::Copy;
use File::Path;

my $date = $ARGV[0];

my $comptage = $ARGV[1];
my $C = $comptage;

# index : input ou output
my $index = $ARGV[2];
my $I = $index;

my $week = $ARGV[3];
my $W = $week;

print STDOUT "the week is ${W}\n";


my $cmda=qq{mkpath('M1_fa_${W}/M1_${W}_comptage_${C}_${I}_first_action')};
my $cmdb=qq{mkpath('M2_fa_${W}/M2_${W}_comptage_${C}_${I}_first_action')};
my $cmdc=qq{mkpath('M3_fa_${W}/M3_${W}_comptage_${C}_${I}_first_action')};