THE perl script.