Touched up perl script.