#! usr/bin/perl -w
use strict;
# la librairie appelée sert à utiliser les fonctions move et copy 
use File::Copy;
use warnings;
use File::Find;
use diagnostics;

BEGIN {
  open(STDERR, ">stderr.log")
    or die "Failed to open log file";
}

sub general_per_day_process{
	my $date = shift @_;
	print STDOUT "the date is $date\n";
}
	

my @ALL_WEEK_DAYS = (20061022, 20061023);

################# selection of the week ############################


my $day;

foreach $day(@ALL_WEEK_DAYS){
	print STDOUT "the day is $day\n";
}

foreach $day(@ALL_WEEK_DAYS){
	general_per_day_process($day);
}	

close STDERR;