log4perl.logger.ClassA = DEBUG, ClassA

log4perl.appender.ClassA                          = Log::Log4perl::Appender::File
log4perl.appender.ClassA.filename                 = \
sub  {
          my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
          my $date=sprintf("%04d%02d%02d",1900+$year,$mon+1,$mday);
          my $log_file="/tmp/ClassA".$date.".log";
          return $log_file;
}

##</code><code>##


BEGIN {
        Log::Log4perl::init_and_watch('/etc/log4perl.conf',5);
        $__PACKAGE__::mylog=Log::Log4perl->get_logger();
}

##</code><code>##

#   in classa.t at line 8.
#     Tried to use 'ClassA'.
#     Error:  Can't evaluate 'sub  {' (Missing right curly or square bracket at (eval 136) line 2, at end of line
# syntax error at (eval 136) line 2, at EOF
# ) at /usr/local/lib/perl5/site_perl/5.8.5/Log/Log4perl/Config.pm line 715.