$SIG{__DIE__} = sub {
        $Log::Log4perl::caller_depth++;
        my $logger = get_logger("YOUR_LOGGER_HERE");
        $logger->fatal(@_);
        die @_; # Now terminate really
};