Coplan is hacking away at the perl language, trying to better understand it:

my ($potential, $abilities) = (100, 0);
while ($abilities < $potential) {
   $abilities++;   # use perl monks; use books;
}
[download]