my %month = (
    'Jan' => '01',
    'Feb' => '02',
    'Mar' => '03',
    'Apr' => '04',
    'May' => '05',
    'Jun' => '06',
    'Jul' => '07',
    'Aug' => '08',
    'Sep' => '09',
    'Oct' => '10',
    'Nov' => '11',
    'Dec' => '12',
);

my $localdate = localtime;
my ($dname, $mname, $day, $time, $year) = split( " ",$localdate);
my $log_name = "./log/ST03_$year-$month{$mname}-$day\_$time.log";

my $conf = qq{
                log4perl.rootLogger               = DEBUG, myFILE
                log4perl.appender.myFILE          = Log::Log4perl::Appender::File
                log4perl.appender.myFILE.filename = $log_name
                log4perl.appender.myFILE.mode     = append
                log4perl.appender.myFILE.layout   = Log::Log4perl::Layout::PatternLayout
                log4perl.appender.myFILE.layout.ConversionPattern = %d [%p] (%F line %L) %M %m%n
};
Log::Log4perl::init( \$conf );
my $logger = Log::Log4perl->get_logger;

##</code><code>##

my $conf = qq{
                log4perl.rootLogger               = DEBUG, myFILE
                log4perl.appender.myFILE          = Log::Log4perl::Appender::File
                log4perl.appender.myFILE.filename = $main::log_name
                log4perl.appender.myFILE.mode     = append
                log4perl.appender.myFILE.layout   = Log::Log4perl::Layout::PatternLayout
                log4perl.appender.myFILE.layout.ConversionPattern = %d [%p] (%F line %L) %M %m%n
};
Log::Log4perl::init( \$conf );          # Charge la configuration

my $logger = Log::Log4perl->get_logger;