my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = l
+ocaltime time;
my $date=sprintf("%04d%02d%02d",1900+$year,$mon+1,$mday);
my $log_file="/tmp/ClassA".$date.".log";
log4perl.appender.ClassA.filename = $log_file;