Is there any solution in perl like log_by_lua? https://github.com/openresty/lua-nginx-module#log_by_lua_block

Or any method i can catch the sent byte data in perl?

Curently we have a system that parses the log files to put sent bytes data to redis but it is far from the ideal solution.