Perl can do both ways:
$ perl -E 'say(4 % -3)'
-2
$ perl -E 'use integer;say(4 % -3)'
1 $ perl -E 'say(4 % -3)'
-2
$ perl -E 'use integer;say(4 % -3)'
1It's a pattern in Perl, like "use strict;" for example, which is also lexically scoped and has a "no strict;" counterpart.