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;
}