I tried to run it through perltidy to make it readable, but there're some syntax errors. Please fix your script.