[sr-dev] git:4.1: app_perl: update constants for debug levels