#!/usr/bin/perl
# http://mathforum.org/library/drmath/view/55721.html

# gives bad output
my $x = ( -1 ** 0 );
print "$x\n";

# correct
my $y = ((-1)**0);
print "$y\n";