Gosh, it has been a while since I've written a perl script, I can't believe for didn't use strict or warnings. I'll wade through the warnings and find my undoing...