It was one of those things where I was asked to create it, and I knew how to accomplish the task quickly with Perl, and I didn't want to completely waste the code, no matter how short of a time it took to write :).