> perl -E "
require JSON; 
JSON->import('-support_by_pp'); 
say JSON->new->escape_slash()->encode( { foo => qq~b/ar~}) eq qq~{\"foo\":\"b\\/ar\"}~ ? 'klappt' : 'nicht';
"
klappt