What I found interesting though not surprising is this: While in its fully deobfuscated version the classical Blessed Object Oriented form was the easiest to develop and grasp. But as the code got reduced to the bare minimum needed to retain functionality, the Functional approach became so elegant that even its obfuscated and golfed version still feels pretty and intuitive to me. I'm sure beauty is in the eye of the beholder. But I guess it kind of took me by surprise that the more I streamlined and condensed the code in the classical Object Oriented version, the uglier it became, while the more I streamlined and condensed the code in the Functional version (or functions as objects), the more it began to shine as the elegant solution. And as a bonus to myself, I even got it down to 201 keystrokes (203 if you count newlines, which are significant).

Of course traditional OO has a lot of well-developed features that aren't needed for a simple gadget like this. Functional programming with Perl doesn't provide (from what I know) for concepts like inheritance (which may be a positive, depending on who you ask). But it is a paradigm with a lot of merit for simplifying code through generalization and abstraction. Anyway, this was just a fun little pursuit; I hope you like it.