zen% perl -le 'print -1 % 3'
  2
  zen% perl -Minteger -le 'print -1 % 3'
  -1
  zen%