sub power { return True or False }
my $truth = not True;
print $truth=power if power;

# There is no truth, only regimes of truth articulated with power.
#   - M. Foucault