не знаю можно ли сделать так на стандартных фреймах, но у x-perl есть отсчет дебафов точно.