Ran this script through perltidy.

  Just for neatness, no functional changes just formatting.