This is an excellent example of Modern Perl, more so than the article posted the other day. No magic, very easy to understand, documented, and structured.