D:\>perl -MO=Deparse,-p -e " print -2 ** 4 + 1; "
print((-15));
-e syntax OK