Just delimit the variables with braces i.e

$SIG{__WARN__} = sub {
    local  ${Log::Log4perl::caller_depth};
    ${Log::Log4perl::caller_depth} =
    ${Log::Log4perl::caller_depth} + 1;
    $logger->logconfess(@_);
};
[download]