>perl -E "say ((-1) ** 0)"
1