perl -e 'print ((1 | 1) - 1)'