% perl -le 'print (4 % -3)'
           -2
           % perl -Minteger -le 'print (4 % -3)'
           1