app_perl: update constants for debug levels