log4perl.appender.Logfile.filename = sub {
my $date =  POSIX::strftime('%Y-%m-%d', localtime );
return "myapp-$date.log";
};