Some PerlMonks Advice:

Please use <code> ... </code> tags so we can read your code.

Update: Thank you.