Some updates to the perl script.