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