$ perl -le 'print (-2)**2'
-2
$

##</code><code>##

$ perl -MO=Deparse -e 'print (-2)**2'
print(-2) ** 2;
-e syntax OK

##</code><code>##

$ perl -le 'print((-2)**2)'
4