log4perl.rootLogger = TRACE, FileApp, XMLAppender, ScreenApp
log4perl.appender.FileApp = Log::Log4perl::Appender::File
log4perl.appender.FileApp.filename = sub { my $Me=$0; $Me =~ s/^.*\\//; $Me =~ s/\..*//; return "$Me.log" }
log4perl.appender.FileApp.layout = PatternLayout
log4perl.appender.FileApp.layout.ConversionPattern   = %d{ISO8601} (%-13F: %04L) %m%n