edits to the perl script