Select Code to Download

use Log::Log4perl qw(:levels);
Log::Log4perl::init('/home/code/log4perl-conf.txt');
my $logger = Log::Log4perl->get_logger($0);
$SIG{__DIE__} = sub {$Log::Log4perl::caller_depth++; $logger->fatal('f
+atal: ', @_); die @_;};

use Log::Log4perl qw(:levels);
my $logger = Log::Log4perl->get_logger(__PACKAGE__);
$logger->level($DEBUG);