$SIG{__DIE__} = sub {
    my ($message) = @_;
    chomp $message;

    # Get the actual caller for the "die" and not the wrapper
    local $Log::Log4perl::caller_depth;
    $Log::Log4perl::caller_depth++;

    my $log = get_logger('');
    $log->logdie($message);
};