Nice to see some clear, well-formatted perl code showing up on Slashdot. The variable names are pretty weak, but otherwise it's a good effort.