our $con = q(
        ############################################################
        # A simple root logger with a Log::Log4perl::Appender::File
        # file appender in Perl.
        ############################################################
        log4perl.rootLogger=ALL, LOGFILE
        log4perl.appender.LOGFILE=Log::Log4perl::Appender::File
        log4perl.appender.Logfile.filename =
        log4perl.appender.LOGFILE.filename= sub {&file;}
        log4perl.appender.LOGFILE.mode=append
        log4perl.appender.LOGFILE.layout   = Log::Log4perl::Layout::PatternLayout
        log4perl.appender.LOGFILE.layout.ConversionPattern =[%d][%L][%p]-## %m ##%n
        log4perl.appender.Screen         = Log::Log4perl::Appender::Screen
        log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
        log4perl.appender.Screen.stderr  = 0
        log4perl.appender.Screen.layout.ConversionPattern =%L,[%p], %m%n
);
Log::Log4perl::init( \$con );
$logger = Log::Log4perl->get_logger($0);