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('fatal: ', @_); die @_;};

##</code><code>##

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