Select Code to Download

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

    use Log::Log4perl qw(get_logger);
    Log::Log4perl->init("pllog.conf");
    my $logger = get_logger("My_Tools.$Me");