You're more than welcome to throw any of this code in a perl module. I can send you the full wrapped code whenever you want and it'll probably make more sense.