Select Code to Download

use strict;
use warnings;
...

1/0;

   $SIG{__DIE__} = sub {
       my $logger = get_logger();
       local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_dep
+th + 1;
       $logger->fatal("DIE @_");
   };