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