[sr-dev] git:master:d6f16797: app_perl: use snprintf instead of sprintf