NodeReaper has asked for the wisdom of the Perl Monks concerning the following question:
Next, please add a specific question. What part of your code do you understand, and what part do you not understand?
Does your code run? Does it do what you want it to do?