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;