I'm bored, so I whipped up a couple of lines for one of my favorite quotes. It compiles, but not under strict.

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
[download]

</ajdelore>