Is there any perl program that isn't obfuscated? The idea of a "readable perl contest" originally came from Segfault.org, but I think it has serious merit :-)

So, if any of you perl hacker types want to take a crack at writing perl that someone else (even another perl hacker) can understand, add it here.

I'll start:

#!/usr/bin/perl
print("hello world");

Anything more complex than this rapidly becomes unreadable.