log4perl.logger          = DEBUG, App
log4perl.appender.App    = Log::Log4perl::Appender::Screen
log4perl.appender.App.layout = PatternLayout
log4perl.appender.App.layout.ConversionPattern = %d %r %S%n
log4perl.PatternLayout.cspec.S = sub { substr($_[1], 0, 25) }